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Introduces the 
World's First 32-bit Forth Microprocessor 



SC32 Stack- Chip 



Also, the SC/FOX Parallel Coprocessor System32 

a PC based development system. 




SC/FOX PCS32 (Parallel Coprocessor System32) 



SC32 Stack-Chip Hardware Features 



,000 transistors. 



dock-cycle instruction 
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Uses the SC32 Stadc-Chip micrrarocessor 
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Non-multiplexed 32-bit address bus and data bus. 

16 gigabyte non-segmented data space. 

2 gigabyte non-segmented code ^ace. 

8 or 10 megahertz full-static operation. 

Stack depths limited onfy by available memory. 

Interrupt and interrupt aduiowledge lines. 

Bus request and bus grant hnes with on-chip tristate, 



slow memory and I/O devices, 



ceramic 



MIL-STD-883C Class B ^ 
Unit Price starts at S195. 



System speed options; 8 or 10 MHz. 
Full-length 8 or 16-bit PC/XT/AT/386 plug-in boa 
64K to IM bytes, wait-state static RAM. 
Hardware expansion, two 50-pin strip headers. 
Operates concurrent^ with PC/XT/AT/386 host. 
Multq>le PCS32 board parallel operation. 
PCS32 memoiy accessible by PC host. 
PCS32 controlled through PC I/O space. 
Data transfer through 16K shared memory window. 
SC/Forth32, interactive Forth-83 Standard with 
32-bit Forth extensions. SC/Forth32 source availat 
Prices start at $1,995 with SC/Forth32. 



Ideal for embedded systems control, multitasking and multiple-processor operation, data acquisition, 
image processing, or computation intense applications. For additional information, contact us at: 

SiUcon Composers, Inc., 210 Califomia Avenue, Suite K, Palo Alto, CA 94306 



(415) 322-8763 
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I . This set of words allows time-based statements in Forth. It constructs code to perform several useful functions, and 
I . includes user-definable time units, waiting or flag-testing for a specified period, and more. You may find creative ways 
W to extend this set of commands to define application- cm- environment-specific functions. 
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. I . A Forth algorithm to directly find the unique axis and the angle of a rotation is presented, a technique that provides some 
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14 

This multitasker for a multiple-CPU system handles task allocation transparently, without even requiring the 
programmer to know how many CPUs are being used. It avoids resource contention, permits intervention via interrupts, 
® and allows triggering of idle tasks without polling or other CPU overhead. 
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23 

^ The author presents his vocabulary search-order routine, in which FORTH is searched only after all the user-specified 
I ■ vocabularies. It is easy to restore the default condition with a single command. The routine is based on a vocabulary name 
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Editorial 



The Forth Interest Group's directors 
recently decided to distribute public-do- 
main Forth systems on diskette. This is the 
outgrowth of a years-long debate that has 
ranged from issues like the support of such 
software, to the organization's goals, to — 
not least — the vendor community. In ear- 
lier times, some feared that FIG's distribu- 
tion of public-domain Forth at equally 
public-domain prices would undercut the 
market of some Forth vendors. Others saw 
public-domain consumers as (a) entry- 
level Forth users who will likely graduate 
to commercial systems in time, and (b) 
Forth experts who will use and study sys- 
tems from any source, but who use com- 
mercially supported packages when devel- 
oping programs for sale or under contract. 

Today, most Forth vendors provide 
complete documentation, technical sup- 
port, consulting, and custom programming 
with which FIG-distributed systems will 
not and cannot compete. FIG does not offer 
technical support; users who need a sup- 
ported, comprehensive system must still 
contact a vendor who can provide one. This 
issue's "Best of GEnie" discussion will 
help some prospective users of public- 
domain systems. It recaps some of the on- 
line dialog between new and long-time 
users. 

FIG's Mail Order Form is to include 
F83 v.2.01 and F-PC v.2.25 for IBM PCs , 
and compatibles, and the less-known 
PocketForth for Macintoshes. F83 is famil- 
iar to many as the extensive (by comparison 
with earlier Forths) Forth-83 Model con- 
tributed by Henry Laxen and Michael 
Perry. F-PC is the creation of Tom Zimmer, 
who has given us a large-environment 
Forth (files, hypertext, etc., etc.) that de- 
serves lengthy commentary in issues to 
come. Pocket Forth for the Mac, by Chris 
Heilman, bills itself as an austere Forth 
system diat follows standard usage and 



Starting Forth, but not rigorously. It can be 
used to create standalone and desk acces- 
sory applications (coming in both forms 
itselO, supports toolbox calls and machine 

code, and accepts text files. 

* * * 

I want to repeat our call for articles 
about Forth hardware. Last month's edito- 
rial gives details about the closing dates, 
cash awards, etc. Articles can be about a 
particular Forth chip or board you have 
used or built, general design philosophy, a 
survey of entries in die field, you name it. 
No one with a vested interest in a product is 
excluded from writing about it, so long as 
they honestly admit the affiliation, but our 
reviewers will look keenly for signs of per- 
sonal bias in the technical content. 

Despite the generally wide fascination 
with Forth hardware, some of our readers 
just haven' t acquired the taste for it, at least 
not enough to write about. An event of 
interest to every programmer is the "Chal- 
lenge of Sorts" announced in this issue. 
Dennis Ruffer, head sysop of the GEnie 
Forth RoundTable, is spearheading this 
effort to really test your programming 
skills. The well-designed contest comes 
complete with prizes and publication for 
the winners, described later in this issue. 

The gauntlet has been tossed... 

* * * 

The "Reference Section" continues to 
grow, with an addition to the on-line re- 
sources and two new categories: ANS 
Forth lists X3J14 representatives who are 
willing to take your proposals and concerns 
about the developing ANS Forth directly to 
that committee; and Forth Instruction pro- 
vides a place to find ongoing educational 
resources of interest. Send any additions 
and elaborations to us. 



(Editorial continued on page 37) 
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LETTERS 



Object Commentary 
Dear Mr. Ouverson, 

This is a comment on Mike Elola's 
comment on my comment on his object- 
oriented article in ForthDimensions (X/5)! 

First, I'm glad that my comment has 
stirred so much enthusiasm. I have received 
many positive letters on it. I hope this inter- 
est in object-oriented Forth (OOF) contin- 
ues to grow. 

Using the now-famous arithmetic aver- 
age example, listed below, Elola suggested 
that the phrase USE FLOAT should not be 
necessary in an 00 language. 

USE FLOAT 
A @ B @ 
+ 2/ 
C ! 

CSU Forth is not an OO language. I 
found no reason to make it so. Instead, it 
accommodates 00 principles. The original 
spirit of Forth, as I understood it, is pro- 
grammer liberty and language extensibil- 
ity. I therefore designed CSU Forth to be 
100% compatible with the standards, yet to 
offer the programmer an excellent way of 
program design if he/she wants to use it. In 
CSU Forth, classes and objects are Forth 
words. The way diey do what they do is 
found in their DOES> parts. 

In the arithmetic average example, the 
phrase USE FLOAT is needed for the 
methods + and 2 / , not for the float objects 
A, B, or c. These mediods will behave dif- 
ferently in a float class than in an integer 
class. Using USE, the programmer doesn't 
have to create a special object to call these 
methods. It also allows the programmer to 
use familiar word names like 2 / without 



binding ambiguity. The same technique is 
found in standard Forth whenever you in- 
voke a vocabulary. Perhaps writing the 
example as below will remove this misun- 
derstanding: 

A @ B @ 
USE FLOAT 
+ 2/ 

USE FORTH 
C ! 

Finally, I hope that the next Forth stan- 
dard will not be called "Forth++." Forth-90 
is what I'd like to see. I especially pray that 
if the ANSI committee decides to imple- 
ment OOF, they will not be inspired by the 
cryptic and complex standards of C++. 00 
principles are much simpler and easier to 
implement than some folks will lead you to 
believe. 

Sincerely, 

Ayman Abu-Mostafa 

7932 Lampson Ave. #25 

Garden Grove, California 92641-4147 



Conditional-Stack Caveat 
DearMarlin, 

There is a serious misunderstanding of 

the IF ... ELSE ... THEN and IF ... THEN 

constructs in Abu-Mostafa' s article on 
branchless conditionals ("Forth Needs 
Three More Stacks,"FD XI/1). The stan- 
dard inteipretation of these constructs in- 
cludes the following points: 

1. IF removes a single value from the 
parameter stack and processes it as a 
Boolean. 



2. If the Boolean value is true, processing 
continues with the words immediately 
following IF and continues up to a 
matching ELSE or THEN. 

2a. A matching ELSE causes a skip of 
processing of words between ELSE and 
the matching THEN. Processing is re- 
sumed after then. 

3. If the Boolean value is false, the words 
immediately following if are skipped 
up to a matching else or THEN, and 
processing is resumed at the matching 
else or then. 

4 . The group of words that is skipped has no 

effect on the parameter stack, the return 
stack, or any variable in the dictionary, 
no matter how long or complicated the 
group of words may be. 

In these rules, "matching" means that 
any IF ... ELSE ... THEN or IF ... then 
constructs that are nested inside in skipped 
code must be passed over, and their else 
or then parts ignored. 

One might quibble about whether my 
wording of the rules is precise, complete, or 
the most concise possible, but the intent is 
clear to all users of Forth. In particular, 
skipped words must not affect the parame- 
ter stack. Abu-Mostafa' s fourth rule of 
processing his proposed condition stack 
does have skipped IF words affecting the 
parameter stack. This is wrong. 

One can implement branchless condi- 
tionals correctly without the use of a condi- 
tion stack. Instead, one needs only an exe- 
cution control flag (ECF) and a nesting 
depth counter (NDC). During initialization 
of the system, ECF is set true and ndc is set 
to zero; then the following rules apply: 
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1. As each word is parsed finom the input 
stream, ecf is examined. The word is 
executed if ecf is true, and is skipped if 
ECF is false. 

2. Execution of I F causes the top value on 
the parameter stack to be stored into 
ECF. 

3. Execution of ELSE causes false to be 
stored into ECF. 

4. Execution of THEN is a no-operation. 

During "skipping," special actions are 
taken if any of the words IF, ELSE, or 
THEN are encountered, as follows: 

1. Skip over if causes ndc to be incre- 
mented. 

2. Skip over ELSE causes a test of ndC, 
and 

2a. If ndc is zero, true is stored into ECF. 
2b. If NDC is non-zero, no action is taken. 

3. Skip over then also causes a test of 
NDC, and 

3a.If NDC is zero, true is stored into ECF. 
3b.If NDC is non-zero, NDC is decremented. 

The use of the ndC makes the "skip- 
ping" state pass over matching pairs of IF 
and then words without ending the skip- 
ping state. It works up to a nesting level 
equal to the overflow count of ndc. (Proba- 
bly larger than the storage allocation of any 
possible condition stack!) The algorithm is 
essentially the same as one for finding 
matching left and right parentheses in alge- 
braic expressions. Evaluation of an alge- 
braic expression is nicely done using a 
stack to hold intermediate results, but the 
stack is quite unnecessary if one is only 
interested in finding matches of parenthe- 
ses. 

In addition to the serious misstatement 
of IF ... THEN processing, there are other 
less serious problems with Abu-Mostafa's 
branchless conditionals: 

• Marking words for special processing 
by setting a bit in the NFA is only satisfac- 
tory for interpretive mode. If it is used on 
compiled code, it would require the outer 
interpreter to execute >LINK for every 
word that is being skipped during a skip 
sequence. This would surely be very slow. 

• DO ... LOOP still requires a backward 
branch. Some of the words that Abu- 
Mostafa hopes to eliminate with his 
branchless conditionals will still be re- 
quired to implement this backward branch. 



• The proposed CASE construct re- 
quires the programmer to count, by hand, 
the number of instances of the word CASE 
and enter that number into the source code 
explicitly. Surely SELECT and END could 
be augmented in some way so that they 
cause the instances of CASE to be counted 
by the compute rather than by the pro- 
grammer. People, even programmers, are 
far less reliable at counting than computers. 

• The definition of CASE contains IF. 
The operation of branchless conditionals 
requires that the outer interpreter know 
about the IF that is hidden inside CASE. 
One bit in the NFA is not enough to encode 
the necessary information for appropriate 
processing of CASE. Apparently, the outer 
interpreter must "open up" the definition of 
CASE and look inside, find the IF and 
process it. This must be very slow indeed. 

In conclusion, I would like to caution 
any reader thinking of implementing 
branchless conditionals on his own Forth to 
look before he leaps. 

Sincerely, 

Paul Condon 

216 Sheffield Lane 

Redwood City, California 94061 

Case Counter 

In Forth Dimensions XI/1, Dr. Ayman 
Abu-Mostafa suggests adding three stacks 
to Forth. In addition, he describes a nes- 
table case structure which uses his pro- 
posed conditional and case stacks. The 
scheme for both the stacks and the case 
statement seems very easy to implement. 

The drawback I see to tfie proposed case 
structure is that it requires the programmer 
to specify how many cases are present. 
Though not a problem when code is ini- 
tially written, when adding or deleting 
cases during later maintenance, it will be 
easy to forget to update the CASES clause. 
I would like to suggest some minor changes 
to the case structure that will allow it to 
count the number of cases for itself. 

The change involves keeping the num- 
ber of cases defined on the case stack 
underneath the select value. SELECT will 
initialize this to zero: 

: SELECT ( n — ) 
4 >S 
4 >S ; 

(Letters, continued on page 37) 
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Forth-79 

TIME-STATEMENT 

LEXICON 

DAVE EDWARDS - SUBIACO. W.A.. AUSTRAUA 



er since my first process-control 
program , when I needed to execute code on 
a timed basis, I have been working on a 
lexicon for time statements in Forth. Con- 
sulting my back copies of Forth Dimen- 
sions, I discovered a typically excellent 
article by William Ragsdale (issue V/5) 
which developed syntaxes of the type: 

TICK IF EACH- SECOND 
TOCK IF EACH-MINUTE 
THEN THEN 

It was perfect for my needs in that first 
control program. My second program re- 
quired more sophistication than just each- 
second and each-minute kinds of state- 
ments, so I began extending Ragsdale's 
basic ideas into the present lexicon. 

The lexicon allows a variety of time- 
based statements in Forth. It does not use an 
operating-system approach (in which the 
"system" maintains a set of timers available 
for use), but constructs in-line Forth code 
which performs the timing functions. The 
lexicon allows syntaxes for dealing with a 
variety of lime functions, including: 

• A declarable set of time units (millisec- 
onds, seconds, minutes, etc.). 

• Perform processes on each new time unit 

(similar to Ragsdale's TICK TOCK sys- 
tem). 

• Monitor a time lapse. 

• Declare a time period. 

• Detect whether a period has elapsed. 

• Wait to proceed until after a specified 
period. 

• Monitor a condition (flag) for a time 
period. 

Functions required beyond this set can 
easily be expressed in phrases using the 
core lexicon words. 



The first design requirement was that 
the lexicon be able to handle multiple time 
units: milliseconds, seconds, minutes, even 
hours and days. To implement this, a set of 
entities was created that is collectively 
called the time units, which are simply 
numbers used by the code to distinguish the 
current time unit (TU). 

Words in the lexicon are designed to run 
repeatedly inside a Forth control structure 
for the period of interest Time lapses are 
measured by keeping a note of the value of 
the time units on the previous pass through 
the loop and comparing it to the value of the 
time unit on the current pass through the 
loop. While in the loop, the words need 
access to various parameters: 

The time units are 
independent of the 
timing basis. 



• the current time unit (TU) 

• the value of the time unit on the last pass 

(V) 

• a counter to accumulate the time lapse (c) 

• the specified time period or limit value (iP) 

All of these parameters are passed on the 
stack and they remain on the stack for the 
duration of the loop. In this sense, the 
design uses stack data structures — there is 
a different data structure for the various 
aspects of time being monitored: 

• To access a time value requires: 
the time unit (TU). 

• To detect a new value requires: 

the time unit and a previous value (v TU). 

• To monitor a time lapse requires: 



a counter plus new's parameters (c v 
TU). 

• To detect if a period has elapsed re- 
quires: the total period plus lapse ' s para- 
meters (P c v TU). 

The first word in the lexicon is @ T IME, 
which returns the value of the specified 
time unit. It is used by most words in the 
lexicon and is shown in Figure One-a. Its 
definition is implementation-specific and 
is discussed in the implementation section. 
It can be used directly to return the value of 
particular time units, for instance: 

: eSECS SECS @TIME ; 
: SMINS MINS @TIME ; 

etc. 

NEW expects the previous value of a 
time unit, along with the time unit, on the 
stack. This word is analogous to 
Ragsdale's T ICK but has been generalized 
to handle the different units. It leaves an up- 
dated TU value and a flag that is true if there 
was a new value, false otherwise. (See 
Figure Two.) 

Notice that new actually leaves the 
difference between the two time unit val- 
ues on the top of the stack, not a pure flag. 
This allows NEW to be reused in the defini- 
tion of LAPSE. 

NEW can be used immediately in a Forth 
control structure to execute EACH-fime 
unit functions similar to Ragsdale's origi- 
nal system. For example: 

MINS ST IME 
SECS @TIME 

BEGIN 

SECS NEW 

IF EACH-SEC 
THEN SWAP 
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Figure One. Implementation-dependent internals. 
Figure One-a 

: STIME ( TU -- v ) 
CASE 

mSEC OF code to fetch value of milliseconds ENDOF 
SECS OF code to fetch value of Seconds ENDOF 
etc. ENDCASE ; 

Figure One-b 

! MAX-TU ( TU -- n ) 
CASE 

mSEC OF 1000 ENDOF 
SECS OF 60 ENDOF 

MINS OF 60 ENDOF etc. ENDCASE ; 

Figure One-c 

: MAX-TU ( TU -- n ) 
CASE 

mSEC OF 10 ENDOF 
cSEC OF 10 ENDOF 
dSEC OF 10 ENDOF 

SECS OF 60 ENDOF etc. ENDCASE ; 



Figure One-d 

Physical Timers: VARIABLE msec 
VARIABLE mins 



contains milliseconds 
contains minute number 



Time-Units : 



raSEC cSEC dSEC SECS MINS HRS 



QTIME CASE 

mSEC OF msec © ENDOF 

cSEC OF msec S 10 / ENDOF 

dSEC OF msec ® 100 / ENDOF 

SECS OF sees @ ENDOF 

MINS OF mins © ENDOF 

HRS OF mins © 60 / ENDOF etc. 



ENDCASE 



Figure Two. Basic lexicon. 



NEW 



( V TU -- v' f \ True if v' not equal to v ) 
©TIME DUP ROT - : 



! CLK-ON < TU -- c=0 v TU \ Clears a LAPSE counter ) 
SWAP DUP ©TIME SWAP ; 

: LAPSE ( c V TU -- c' v' TU \ Increments c by time lapse ) 
DUP >R NEW DUP 
0< IF R© MAX-TU + THEN SWAP >R + R> R> ; 

: ELAPSED ( P c v TU -- P c' v' TU f \ True if c' >«= P ) 
LAPSE 3 PICK 3 PICK > ; 



Figure Three. Control structures. 

: PERIOD COMPILE CLK-ON 

[compile: BEGIN 
COMPILE ELAPSED 

: TIME COMPILE OR 

[COMPILE] UNTIL 
COMPILE 2DR0P j 



IMMEDIATE 



IMMEDIATE 



MINS NEW 

IF EACH-MIN 
THEN SWAP 
AGAIN 

Note that current values of the time 
units are always on the stack during the 
BEGIN ... UNTIL Structure. 

CLK-ON sets up the stack values for a 
time LAPSE monitor — ^it initializes the 
lapse count (c) to zero and runs @time to 
provide an initial time unit value. (See 
Figure Two.) 

LAPSE expects a single-precision 
count, along with new's parameters on the 
stack. The count is incremented by the time 
lapse between the previous value and the 
current value, and is shown in Figure 
Three. 

The word MAX-TU in the definition of 
LAPSE is a word which pushes the maxi- 
mum value of any TU in the system, and is 
used to handle wrap-around of the value. 
For instance, when using SECONDS as the 
time unit, if the previous value was 59 and 
the current value is two, then wrap-around 
has occurred and the max-TU for SEC- 
ONDS (60) must be added to the result left 
by NEW (-57). MAX-TU is discussed in 
detail in the implementation section. 

LAPSE can, therefore, be run only 
slightly more frequently than the next 
higher time unit in the system — if SECS is 
the current time unit, then lapse need 
only be run once every 59 seconds or so. 

lap SE can be used in a variety of ways. 
The following phrase leaves a number on 
the stack which indicates how long it took 
before the flag-leaving Forth phrase went 
true: 

mSEC CLK-ON 

BEGIN LAPSE ... ( f ) 

UNTIL 2DR0P ( n ) 

The next construct will remain in the loop, 
running the code between WH I LE and RE - 
PEAT for ten minutes: 



MINS CLK-ON 

BEGIN 

LAPSE 3 

WHILE . . . 

REPEAT 
2DR0P DROP 



PICK 10 < 
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Optional control structures. 




: MONITOR 


CCOMPILE] TIME 
COMPILE 2DR0P ; 


IMMEDIATE 


; DETECTED 


CCOMPILE] TIME 
COMPILE > ; 


IMMEDIATE 


: TIMED 


[COMPILE] TIME 
COMPILE SWAP 
COMPILE OVER 
COMPILE > ; 


IMMEDIATE 



Note again that care must be taken in the 
Forth phrases between WHILE and re- 
peat, as there are timing-control numbers 
on the stack for the duration of the loop. 

ELAPSED expects a total-period, 
single-precision number below LAPSE'S 
arguments on the stack. It leaves a flag if the 
time lapse equals or exceeds the period 
specified — see Figure Two. As an example 
of using ELAPSED, a common need is for 
a word which simply consumes the speci- 
fied period of time. We have named this 
word AFTER and it can be defined as: 

: AFTER ( P TU — ) 

\ consumes specified time 

CLK-ON 

BEGIN ELAPSED UNTIL 

2DR0P 2DR0P ; 

The values used during the loop (period, 
count, value, time unit) are simply dropped 
at the end of the loop, being of no further 
interest in this particular case. 

Another common requirement is to wait 
for a specified total time period and simul- 
taneously monitor some condition. If the 
condition goes true, the loop is left immedi- 
ately; otherwise, the total specified period 
is consumed. This can be accomplished 
with the phrase: 

10 MINS CLK-ON 
BEGIN ELAPSED ...(f) 
OR UNTIL 2DR0P ( P c ) 

This construct leaves two numbers on the 
stack, the original limit specified for the 
period and the lapsed time when the loop 
terminated. 

If the period timed out (the condition 
did not go true in the specified time period). 



the two numbers are equal; if the condition 
went true before the period timed out, the 
limit is greater than the lapsed time. 

The programmer may use these num- 
bers in a variety of ways: 

• To continue without testing die termina- 
tion state, 2DR0P clears the stack. 

• To test whether the condition occurred 
and leave a flag, simply the word > is re- 
quired. 

• To test whether the condition was cor- 
rectiy timed and leave a flag and the time 
taken for the condition to go true, the 
phrase swap over > is used. 

This construct: 

CLK-ON BEGIN ELAPSED (condition) 
OR UNTIL 

has come to be so useful, and was used so 
often in process-control code, that compil- 
ing words have been defined to build it The 
phrase CLK-ON BEGIN ELAPSED is built 
by the word period, and the phrase OR 
UNTIL2DR0P is built by the word TIME. 
Their definitions are given in Figure Three. 

This control structure, in conjunction 
with the subsequent tests, allows state- 
ments of the form: 

10 SECS PERIOD 
? HEATED 
TIME 2DR0P 

{ to simply proceed ) 

20 SECS PERIOD 
7TERMINAL 
TIME > IF 

." Key struck within 20 sees" 
THEN 



FORTH SOURCE^ 



wise CPU/16 

The stack-oriented "Writeable Instruction Set 
Computer" (WISC) is a new way of harmonizing 
the hardware and the application program with the 
opcode's semantic content. Vastly improved 
throughput is the result. 

Assembled and tested WISC for 

IBIVI PC/AT/XT $1500 

Wirewrap Kit WISC for IBM PC/AT/XT $ 500 

WISC CPU/16 manual $ 50 

MVP-FORTH 

Stable - Transportable - Public Domain - Tools 
You need two primary features in a software devel- 
opment package... a stable operating system and 
the ability to move programs easily and quickly to a 
variety of computers. MVP-FORTH gives you both 
these features and many extras. 

MVP Books - A Series 

□ Vol. 1, Ml about FORTH. Glossary S28 

□ Vol. 2, MVP-FORTH Source Code. $25 

□ Vol. 3, Floating Point and Math $35 

□ Vol. 4, Expert System $22 

□ Vol. 5, File Management System $30 

□ Vol. 6, Expert Tutorial $22 

□ \lo\'l, FORTH GUIDE $25 

□ Vol. 8, MVP-FORTH PADS $55 

□ Vol. 9, Work/Kale Manual $25 

MVP-FORTH Software - A trans 
portable FORTH 

□ MVP-FORTH Programmer's Kit including 
disk, documentation. Volumes 1, 2 & 7 of MVP 
Series, FORTH Applications, and Starting 
FORTH, IBM, Apple, Amiga, CP/M, MS-DOS, 
PDP-11 and others. Specify. $225 

□ MVP-FORTH Enhancement Package for 
IBM Programmer's Kit. Includes full screen edi- 
tor & MS-DOS file interface. $110 

□ MVP-FORTH Floating Point and Matli 

□ IBM, □ Apple, or □ CP/M, 8" $1 00 

□ MVP-LIBFORTH for IBM. Four disks of 
enhancements. $25 

□ MVP-FORTH Screen editor for IBM $15 

□ MVP-FORTH Graphics Extension for 

□ IBM or □ Apple $100 

□ MVP-FORTH PADS (Professional 
Application Development System) 

An integrated system for customizing your 
FORTH programs and applications. PADS is a 
true professional development system. Specify 
Computer; □ IBM □ Apple $500 

□ MVP-FORTH Floating Point Math $100 

□ MVP-FORTH Graphics Extension $100 

□ MVP-FORTH EXPERT-2 System 

for learning and developing knowledge based 
programs. Specify □ Apple, □ IBM, or 

□ CP/M 8". $175 

Order Numbers: 
800-321-4103 

(In California) 415-961-4103 

FREE 
CATALOG 



MOUNTAIN VIEW 
PRESS 

PO DRAWER X 
Mountain View, CA 94040 
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10 MINS PERIOD 
? ALARM 

TIME SWAP OVER 
> IF ." Alarm after " 
ELSE . " NO alarm within " 
THEN . ." minutes" 

If desired, optional compiling utilities 
shown in Figure Three can be defined, 
allowing statements like: 

20 SECS PERIOD 
7TERMINAL DETECTED 
IF 

." Key struck within 20 sees" 
THEN 

10 MINS PERIOD 

? ALARM TIMED 

IF ." Alarm after " 

ELSE ." No alarm within " 

THEN . ." minutes" 

Implementation 

The lexicon expects values to which it 
has access to be changing automatically on 
a timed basis. The physical source of these 
locations (whether they are created by a 
hardware interrupt and interrupt code or by 
a real-time clock) is immaterial to the de- 
sign. 

The steps to implement the timing sys- 
tem are: 

1 . Decide on the set of time units. 

2. Write @ T IME to interface to the hard 
ware-specific timing information. 

3. Write MAX-TU for the set of time units 
chosen. 

4. Use the high-level definitions for the 
remaining words. 

The time units are usually defined in 
Forth as constants or variables. There is no 
restriction on the actual values, except that 
they must be distinct from one another. The 
interface to the time units is formalized 
through two words: 

@ T IME fetches the value of the 

named time unit. 
MAX-TU pushes the maximum (i.e., 

wrap-around) value of the 

named time unit. 

Note: MAX-TU is only used in the word 
LAP S E , so it does not need to be separately 
defined; it can be written in-line in the 
definition of LAPSE. It is created here 



simply to clarify the explanation of the 
required functions. 

The structure of 6 TIME is shown in 
Figure One-a. It uses the time unit on the 
stack as the input to a CASE statement, the 
clauses of which perform the particular 
fetch operation and form part of the ma- 
chine- and even the application-dependent 
part of the code. 

The structure of max-tu is shown in 
Figure One-b. It again uses the TU as the 
input to a CASE statement and pushes the 
wrap-around value of the current time unit 
depending on the set of time units chosen in 
the implementation, in this case mSEC, 
SECS, and MINS. 

As a further example, if the required set 
of time units included, say, mSEC and 
hundredths (cSEC) and tenths of a second 
(dSEC), then MAX-TU would be as shown 
in Figure One-c. 

The chosen set of time units is independ- 
ent of the physical timing basis. For in- 
stance, if a one millisecond interrupt was 
used to provide variables for milliseconds 
(msec), seconds (sees), and minutes (mins), 
it is still possible to implement a set of time 
units that includes more than just mSEC, 
SECS, and MINS. This is illustrated in 
Figure One-d. 

Example Implementations 

Interrupt-based Timing 
Basis of timing: 20 millisecond (50 Hz) 
interrupt 

Variables: Ticks, Seconds, Minutes, 
Hours 

Interrupt code: 

increments Ticks 
if Ticks > 49, 

clear Ticks 

increment Seconds 

if Seconds > 59, 
clear Seconds 
increment Minutes 

if Minutes > 59, 
clear Minutes 
increment Hours 

In such a system, the allocation of the . 
time units is most conveniently handled by 
using the variable address as the CON- 
STANT of the time units: 



Ticks CONSTANT TICKS 

Seconds CONSTANT SECS 

Minutes CONSTANT MINS 

Hours CONSTANT HRS 

In effect, no redefinition is needed 
here — the names of the variables can act as 
the time units in this particular implemen- 
tation. Having made this decision, the word 
@TIME is simply Forth's @ (fetch): 

: @TIME e ; 

and MAX-TU is: 

: MAX-TU 

DUP TICKS = 
IF DROP 50 
ELSE HRS = 

IF 24 THEN 
THEN ; 

Real-time Clock 

The Motorola MC 14 6818 Real Time 
Clock (RTC) has registers which con- 
stantly contain the values of: 

seconds (reg 0) 
minutes (reg 2) 
hours (reg 4) 

Given these physical addresses, a natu- 
ral allocation of the time units is: 

CONSTANT SECS 
2 CONSTANT MINS 
4 CONSTANT HRS 

A word called 8 RTC is developed to 
fetch from an RTC register; it expects the 
register number on the stack and returns the 
value of that register: 

: eRTC < r — n ) 

( code to return the value of ) 

( Real-Time Clock register r ) 



With this definition in place, @time 
can be defined as: 

: 0TIME @RTC ; 

and MAX-TU can be defined as: 

: MAX-TU 

DUP HRS = 
IF DROP 24 

{Continued on page 30) 
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Forth-83 

QUATERNION 

ROTATION CALCULATION 

ANTONIO LARA-FERIA and JOAN VERDAGUER-CODINA 
BARCELONA, SPAIN 



his program presents the advantage 
of using quaternions, instead of matrix 
methods, to calculate rotations. A Forth al- 
gorithm to And the unique axis and the 
angle of a rotation is presented. It is part of 
a work to apply quaternions in robotics and 
computer graphics. 

According to reference [1], quaternions 
require fewer mathematical operations 
than matrix methods. An additional feature 
of quaternions is that they give the axis and 
the angle of a rotation directly. 

Quaternions can be applied in many 
areas, for example astronautics [2], me- 
chanics [3], robotics [4,5,6,8], and com- 
puter graphics [1,7]. The program pre- 
sented here focuses only on the use of 
quaternions to calculate rotations. 



Quaternions require 
fewer math operations. 



Numbers and Precision 

The version of Forth-83 used is Labora- 
tory Microsystems, Inc. (LMI) PC/Forth 
3.10. 

The program was written using straight- 
forward, single-length arithmetic. The rea- 
sons for doing this are: 

• In LMI's version of Forth, no words 
are provided for multiplying or dividing 
double-length integers. 

• Even though the above-mentioned 
language can work with an 8087 coproces- 
sor — thus allowing the use of floating- 
point arithmetic, no 8087 was present on 
the equipment used to develop this pro- 
gram. 



21:12 04/29/88 ) 



Screen tt 

( **** QtJATERNION PROGRAM **** 

** BY J. VERDAGUER C, ** 
(Arranged by GRC) 
— ACKNOWLEDGEMENTS -- 



Written in PC/FORTH V3 . 1 from Laboratory Microsystems. 
Uses code (SIN & COS routines, plus data tables) from 
LM's utility file FORTH. SCR, which are in screens # 5, 
n 6, 

(C) JVC all but Screens # 5 & tt 6 . 



21 ; 16 04/29/88 ) 



Screen tt 1 

( INITIALISATION & VARIABLE DECLARATION 
ASM86 FORTH DEFINITIONS 
( Variable declarations ) 

3 CONSTANT PI VARIABLE ITER 

VARIABLE VX VARIABLE VY VARIABLE VZ 

VARIABLE VGX VARIABLE VGY VARIABLE VGZ VARIABLE MVG 
VARIABLE VGXN VARIABLE VGYN VARIABLE VGZN 
VARIABLE AGG 

VARIABLE QOl VARIABLE Qll VARIABLE Q21 VARIABLE Q31 
VARIABLE Q02 VARIABLE Q12 VARIABLE Q22 VARIABLE Q32 
VARIABLE QOT VARIABLE QIT VARIABLE Q2T VARIABLE Q3T 
VARIABLE A VARIABLE B VARIABLE C VARIABLE D 
VARIABLE RO VARIABLE Rl VARIABLE R2 VARIABLE R3 
VARIABLE Fl 



Screen tt 2 

( VARIABLE SET-TO-ZERO UTILITY 
: 0_INTO 

VX I VY ! VZ ! 

VGY ! VGZ ! 
VGYN ! VGZN 



'0 INTO' 



21:24 04/29/88 ) 



VGX 1 
VGXN 
AGG ! 
QOl I 
Q02 . 
QOT 
A ! 
RO ! 







B ! 
Rl 



Qll 
Q12 
QIT 










Z i 
R2 



Q21 ! 
Q22 ! 
Q2T ! 
D 









I 

R3 



Q31 
Q32 
Q3T 
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Screen H 3 

( 'X*' &, 'X/' SEMI-DOUBLE PRECISION OPER. 
X* 

DROP SWAP DROP * ; 
X/ 

DROP SWAP DROP / ; 
DDOP 

OVER OVER ; 
. DTOP 
DDUP . ; 
SQR 

DUP * ; 



21:17 04/29/88 ) 



Screen 1i 4 
( PQ PROCEDURE 
VARIABLE EO VARIABLE El 



VARIABLE AO 
VARIABLE QO 



VARIABLE Al 
VARIABLE Ql 



VARIABLE E2 
VARIABLE A2 
VARIABLE Q2 



21:17 04/29/68 ) 
VARIABLE E3 
VARIABLE A3 
VARIABLE Q3 



PQ 
































EO 


@ 


AO 


(S 


* 


El 


@ 


Al 








E2 


@ 


A2 @ 


* 




E3 


@ 


A3 


@ 


* 




















QO 


1 


EO 


@ 


Al 


@ 


*. 


El 


(S 


AO 


@ 


♦ 




E2 


(31 


A3 @ 


* 


+ 


E3 


@ 


A2 


(0) 


* 




















Ql 




EO 


@ 


A2 


@ 


* 


E2 


@ 


AO 




* 


+ 


E3 


@ 


Al @ 


* 


+ 


El 


® 


A3 


@ 


* 




















Q2 




EO 




A3 


@ 


* 


E3 


@ 


AO 






+ 


El 


@ 


A2 @ 




+ 


E2 


@ 


Al 


(51 


* 




















Q3 


1 



( Sine/cos lookup, from FORTH. SCR file ROD 17:17 09/20/84 ) 

( fast SIN and COS by table lookup method, return val*10000 ) 
FORTH DEFINITIONS DECIMAL 

CREATE SINTABLE 



, 


175 , 349 


, 523 


, 698 


872 , 


1045 , 


1219 , 


1392 , 


1564 , 


1736 


, 1908 , 


2079 , 


2250 


2419 


, 2588 


, 2756 


, 2924 


, 3090 


3256 


, 3420 , 


3584 , 


3746 


3907 


, 4067 


, 4226 


, 4384 


, 4540 


4695 


, 4846 , 


5000 , 


5150 


5299 


, 5446 


, 5592 


, 5736 


, 5878 


6018 


. 6157 , 


6293 , 


6428 


6561 


, 6691 


, 6820 


, 6947 


, 7071 


7193 


, 7314 , 


743] , 


7547 


7660 


, 7771 


, 7880 


, 7986 


, 8090 


8192 


, 8290 , 


8387 , 


3480 


8572 


, 8660 


, 6746 


, 8829 


, 8910 


8988 


, 9063 , 


9135 , 


9205 


9272 


, 9336 


, 9397 


, 9455 


, 9511 


9563 


, 9613 , 


9659 , 


9703 


9744 


, 9781 


, 9816 


, 9848 


, 9877 


9903 


, 9925 , 


9945 , 


9962 


9976 


, 9986 


, 9994 


, 9998 


, 10000 



Screen It 6 

( Sine/cos lookup, from FORTH. SCR file — 
FORTH DEFINITIONS DECIMAL 

CREATE TRIG ASSEMBLER BX, AX MOV BX 

BX, )* 180 SUB BX NEG 1$: BX, 1 SAL 
BX, tt SINTABLE ADD AX, [BX] MOV RET FORTH 
CREATE SINAX ASSEMBLER CWD BX, (t 360 MOV 

BX IDIV AX, DX MOV AX, AX OR 2$ JNS 
2$: AX, it 180 CMP 3$ JLE AX, # 180 SUB 

TRIG CALL AX NEG RET 
3$: TRIG CALL RET FORTH 
CREATE COSAX ASSEMBLER AX. #90 ADD SINAX JMP 



RGD 17: 18 09/20/84 ) 
# 90 CMP 1$ JLE 



AX, » 360 ADD 



FORTH 



( degrees cosine ) 

CODE COS AX POP COSAX CALL AX PUSH NEXT, END-CODE 

( degrees sine ) 

CODE SIN AX POP SINAX CALL AX PUSH NEXT, END-CODE 



Anyhow, the program can easily be 
changed to work with floating-point preci- 
sion simply by entering LMI's Forth editor 
and changing all single-length arithmetic 
words to the corresponding floating-point 
operators. 

Overflow and Inexact Results 

Since single-length arithmetic has been 
used, depending on the data the user feeds 
the program, it may give erroneous results 
due to internal overflow. Care should be 
taken to avoid such a situation; sometimes, 
results shown as the negative of certain 
values can indicate an internal overflow 
(e.g., since 32767 is the greatest signed 
number that can be represented, an over- 
flow-bound sequence like 327 67 1 + . 
would yield -32768). 

On the other hand, when there is no 
overflow the results may be slighdy incor- 
rect due to the poor precision provided by 
16-bit signed integer operations. 

The magnitude of the two possible er- 
rors mentioned above will increase as more 
and more rotations are performed upon one 
single vector. In fact, the reasonable maxi- 
mum number of rotations in such cases 
turns out to be two. 

Extra Code 

Some of the words contain code that is 
not being used by the main RUNME word or 
the words that it calls. That code expresses 
programming alternatives; some of the 
routines and the ideas they represent can be 
used to change or enhance the program. 

How to Run the Program 

After enteringLMI'sPC-Forth, thedisk 
drive containing the screen file 
QUATERN.SCR should be specified to the 
system, i.e.: 

US ING <DRI VE> : QUATERN . SCR 

When the file has been located and 
acknowledged by PC/Forth, load the pro- 
gram by entering: 
1 ? SCREENS THRU 

To execute the program , simply type the 
word RUNME. 

Note: The program uses PC/Forth's 
assembler in the S IN and COS routines, so 
the file ASM86.BIN should be present on 
the PC/Forth disk. Otherwise, the program 
won't be loaded. 
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21 : 19 04/29/88 ) 



Screen # 7 

( EXTRA WORDS SCREEN -1 
FORTH DEFINITIONS 
: DOO 

0= NOT 

SWAP 0= NOT 

OR ; 

: LLIST ( initial, final 
PRINTER 
1+ SWAP DO 

I LIST LOOP 

CONSOLE ; 
; AUTOLOAD 

1 ?SCREENS THRU ; 



Screen # 8 

( EXTRA WORDS SCREEN~2 
: 2 INPUT 

PAD 1+ 80 EXPECT 

SPAN C@ PAD C! 

PAD 1+ C@ ASCII - = IF 

0. PAD 1+ CONVERT DROP DNEGATE 
ELSE 

0. PAD CONVERT DROP 
THEN ; 

: SEPARATOR CR 80 DO . " - " LOOP CR CR ; : BS 8 EMIT ; 

: INPUT 

2 INPUT DROP ; 
; 2R0LL 

( Works just like usual ROLL. Remember, the 'top' element ) 
{ -'bottom' in HP RPN language- is numbered as the 0th i ! ) 
1+ DUP ROLL SWAP ROLL ; 



21:19 04/29/88 ) 



21 : 19 04/29/88 



ficreen # 9 

( EXTRA WORDS SCREEN-3 
: ERROR 1 

." ** WARNING: There may well be (please check) an OVERFLOW 

. " ERROR in that result **" CR ; 
: INFORMl 

. ■■ , all * 10"-" ITER @ . CR 

ERROR ! : 
: INF0RM2 

. " *10"-" ITER @ 2 * . CR 

ERROR ! : 



21 : 19 04/29/88 ) 



Screen (♦ 10 

( ?PR1NTER & MAINl SCREEN 
: 7PRINTER 

IF PRINTE:R ELSE CONSOLE THEN ; 
: ASKPRINTER 

. '■ Wish data to be printed out? (1:Y, 0:N): " INPUT NEGATE 

Fl ! ; 
: MAINl CR 

1 QOl ! Qll ! Q21 ! Q31 ! 

CR . " Enter components of vector to be rotated:" 

CR . " X component: " INPUT VX 

CR , " Y component: " INPUT VY 

CR . " Z component: " INPUT VZ 

Fl @ DUP ?PR INTER IF 

SEPARATOR . " Components of vector to be rotated : " CR 
, " X=" VX @ , CR . " Y=" VY @ . CR 
. " Z=" VZ @ THEN 7PRINTER ; 



(Screens continued on page 21) 
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fig-FORTH, Forth-83 

MULTIPROCESSOR 

FORTH KERNEL 

BRADFORD J. RODRIGUEZ - TORONTO, ONTARIO 



xhis article describes a Forth tnulti- 
tasker for a multiple-CPU 68000 system. 
This multitasker: 

• automatically distributes the task load 
among the available processors, without 
explicit effort by the programmer; 

• provides a means to prevent conflicts 
when different tasks or different CPUs 
attempt to use the same resource; 

• allows tasks to sit in an idle state, await- 
ing an external trigger, without polling or 
other CPU overhead; 

• allows interruf)ts to alter the scheduhng 
of tasks. 

The principles described herein can be 
applied to multiprocessor systems using 
other CPUs, and even to single-processor 
systems. 



For more throughput, 
plug in another CPU! 



The Application 

The multiprocessor kernel was origi- 
nally developed for a performance-lighting 
control system. The processing demands of 
this system were quite strict, and fell into 
three categories: 

• Event-driven processing — initiated by 
external events, such as the system op- 
erator moving a control handle. Requires 
a response time on the order of 100 milU- 
seconds (msec). 

• Time-driven processing — must occur at 
periodic intervals. Most of this repetitive 
processing occurs every 40 msec, but 
intervals from ten msec to 1000 seconds 



Listing One 





1 

2 
3 
4 
5 
6 
7 
8 
9 
IB 
i 1 
12 
13 
14 
15 




1 
2 
3 
4 
5 
b 
7 
8 
9 
10 
11 
12 



\ »♦«»«*♦♦♦•*•*» 

4 CONSTANT CELL 
! CELL3 ( n - n> 



MULTIPROCESSOR TASKER v3 



4 * 



Scr » 180 
04 02 86 BJR •*«»««* 



: SUBROUTINE VARIABLE -4 ALLOT C COMPILE 3 ASSEMBLER ; \ Fig 
\ : SUBROUTINE CREATE C COMPILE 3 ASSEMBLER : \ Forth-83 



181 LOAD 

182 LOAD 

183 LOAD 

189 LOAD 

190 LOAD 

191 LOAD 



task area definition 
internaJ: data areas 



N tasker subroutines 

\ tasker primitives 

\ defining words & initialization 

\ task setup 



Scr # 
11 02 86 BJR 



181 



80 CELLS 



ize of user variables 
\ user variables 
\ return stack 



\ Task area structure 
\ Offsets into the task area 
HEX 80 CELLS CONSTANT USIZE 
CONSTANT UAREA USIZE + 
DUP CONSTANT RSTACK 
DUP CONSTANT RTOP 
DUP CONSTANT PSTACK 
DUP CONSTANT PTOP 

CONSTANT TASKS IZE 
DECIMAL 

\ offsets (from UAREA) to selected user variables 
2 CELLS CONSTANT +RP-TEMP 3 CELLS CONSTANT +80 

4 CELLS CONSTANT +R0 5 CELLS CONSTANT +TIB 



80 CELLS + 
4 CELLS + 

\ total 



\ parameter stack 
\ top safety margin 
size of the task area 



13 

14 : TASK VARIABLE TASKSIZE CELL -■ ALLOT ; \ Fig 

15 \ : TASK CREATE TASKSIZE ALLOT ; \ Forth-83 



\ Semaphore queues structure 
DECIMAL 

8 CONSTANT . SEMA 10 CONSTANT . IBIT 



Scr # 182 
(30 7 86 BJR 15:30 ) 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 



\ semaphore field offsets 

: SEMAPHORE VARIABLE 2 CELLS ALLOT ; \ Fig 

\ : SEMAPHORE CREATE 3 CELLS ALLOT ; \ Forth-83 

SEMAPHORE READYQ \ ready queue header, 3 cells 

HEX CB USER BELFD \ "self -queue" to suspend tasks 

\ 3 cells in task's user area; actual offset is system dependent 

USER MYTASK \ returns addr of currently-executing task! 

3ELFQ MYTASK - CONSTANT +SELFD \ offset from base of task area 

;s 
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\ Tasker — 
SUBROUTINE 



(start) 
(START) HEX 



\ arl 



(&80<3ia( 21 
new task 



Scr # 183 
7 86 BJR 23:45 ) 



\ save interrupt level 



Put given task on ready queue 
SR DR7 .M MQV, 
READYD #L ARB .L MQV, 
700 # SR -W OR, .IBIT ARB «tC .B TAS, MI HERE 4- »+ BCC, 
1 # -SEMA ARB &C .W SUBQ, \ decrement semaphor 

( BE IF, impossible condition: readyq less than empty > 
4 ARB Sit AR2 .L MOV, ARl AR2 C .L MOV, \ put task on queue 
ARl 4 ARB &C .L MOV, ARB ARl C .L MOV, 

7 tt .IBIT ARB &C .B BCLR, \ release queue 

Resume execution 
DR7 SR .W MOV, RTS, jC \ restore interrupt level 



\ Tasker — (signal) 
SUBROUTINE (SIGNAL) HEX 



\ arB 



\ Increment semaphore count 
SR DR7 .W MOV, 

7BB tt SR .M OR, .IBIT ARB &[ .B TAS, 
1 .SEMA ARB &C .W ADDQ, 
\ I-f count > B, continue 

GT IF, 7 # .IBIT ARB &C .B BCLR, ELSE, 



Scr # 184 
(&80BB( 21 7 Bb BJR 23:45 > 
semaphore adr, u = current task 



\ save interrupt level 

MI HERE 4- *+ BCC, 

\ increment semaphor 



a \ I* count <= B, get task -from semaphore queue 



\ continue, divisible 
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IP RP -C .L MOV, S RP -t .L MOV, RP 8 U ScC .L MOV, \ save 
ARB C ARl .L MOV, ARl C ARB .L CMP, 
EQ IF, ARB 4 ARB &C .L MOV, THEN, ARl 
7 # .IBIT ARB &[ .B BCLR, 



— > 



\ Tasker — (signal) 

\ put current task on ready queue 
READYQ #L ARB .L MOV, 
700 # SR .W OR, .IBIT ARB ScC .B 
1 « .SEMA ARB ScC .W SUBQ, 
( GE IF, impassible condition: i 
4 ARB &C AR2 .L MOV, U AR2 C 
U 4 ARB ScC .L MOV, ARB U C 

7 # .IBIT ARB ScC .B BCLR, 
\ make semaphore's task current 

ARl U .L MOV, 

8 U 8<C RP .L MOV, RP C+ S .L MOV 
\ Resume execution 

THEN, DR7 SR .W MOV, RTS, 
— > uses dr7,arl,ar2 ex 



\ get head of sema q 
C ARB C .L MOV, 
\ release queue 



Scr tt 185 
(68BBB( 21 7 86 BJR 23:45 ) 



TAS, MI HERE 4- »+ BCC, 

\ decrement semaphor 
eadyq less than empty ) 
L MOV, \ put cur on ready q 
L MOV, 

\ release queue 

\ switch to new task 
RP C+ IP .L MOV, \ reatr 

C \ restore interrupt level 
pects u,5p,rp valid 



\ Tasker — (wait) 

1 SUBROUTINE (WAIT) 



2 
3 
4 
5 
6 
7 
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Scr tt 186 
(68BBa( 21 7 86 BJR 23:45 ) 
arB = semaphore adr, u = current task 



\ save interrupt level 
.B TAS, MI HERE 4- *+ BCC, \ i 
\ decrement semaphor 



Decrement semaphore count 

SR DR7 .W MOV, 

7BB tt SR .U OR, .IBIT ARB ScC 

1 tt .SEMA ARB ScC .W SUBQ, 
I-f count >= B, continue 

GE IF, 7 tt .IBIT ARB ScC .B BCLR, ELSE, \ continue, divisible 
I-f count < 0, put task on semaphore queue 

IP RP -C -L MOV, S RP -C .L MOV, RP 8 U ScC .L MOV, \ save 

4 ARB ScC AR2 .L MOV, U AR2 C .L MOV, \ put cur on sema q 

U 4 ARB ScC .L MOV, ARB U C .L MOV, 

7 tt .IBIT ARB ScC .B BCLR, \ release queue 



arc possible. 
• Background processing — continuous 
processes, such as display updates, 
which have relaxed timing require- 
ments. 

Systems whose capacity varied over a 
ten-to-one range were to be sold. So that the 
processing power could be configured to 
suit, the architecture was designed (Figure 
One) to use from one to four 68000 proces- 
sors, with a common memory of CMOS 
RAM. The processors each had private 
EPROMs for program storage. 



The programmer 
needn't know how 
many CPUs are 
installed. 



Requirements of the Multitasker 

The 68000s were to be programmed in 
multitasking Forth. Our original software 
design assumed a round-robin tasker; 
however, we soon switched to a more "tra- 
ditional" queued tasker for several reasons: 

1 . We expected to have a large number 
of idle tasks — awaiting some external or 
timed event — at all times. Our studies/or 
this configuration indicated that, if 80% or 
more of the tasks were idle, the queued 
tasker is more efficient. (If fewer than 80% 
are idle, it is faster to poll them round-robin 
than to move them on and off a "ready 
queue.") 

2. We needed to guarantee order of 
service. Our resources — particularly com- 
munications — ^required that competing 
requests be serviced on a first-come, first 
served basis. 

3. Curiosity. We hadn't seen a queued 
tasker in Forth, and wanted to see how 
easily it could be done! 

Queue Storage 

Figure Two shows the structure of a 
task queue. Each queue is stored as a singly 
linked list. The link is stored in the first cell 
of each task's user area, looking very much 
like a typical round-robin multitasker. The 
differences are: 

• there are many linked lists, 

• they are not linked in a circle, and 
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YES, THERE IS A BETTER WAY 
A FORTH THAT ACTUALLY 
DELIVERS ON THE PROMISE 

^^Vforth 

POWER 

HS/FORTH's compilation and execution speeds are 
unsurpassed. Compiling at 20,000 lines per minute, it 
compiles faster than many systems link. For real jobs 
execution speed is unsurpassed as well. Even non- 
optimized programs run as fast as ones produced by 
most C compilers. Fortfi systems designed to fool 
benctimarks are sligtitly faster on nearly empty do 
loops, but bog down wtien the colon nesting level ap- 
proaches anything useful, and have much greater 
memory overhead for each definition . Our optimizer 
gives assembler language performance even for 
deeply nested definitions containing complex data and 
control structures. 

HS/FORTH provides the best architecture, so good that 
another major vendor "cloned" (rather poorly) many of 
its features. Our Forth uses all available memory for 
both programs and data with almost no execution time 
penalty, and very little memory overhead. None at all for 
programs smaller than 200kB. And you can resize seg- 
ments anytime, without a system regen. With the 
GigaForth option, your programs transparently enter 
native mode and expand into 1 6 Meg extended memory 
or a gigabyte of virtual, and run almost as fast as in real 
mode. 

Benefits tjeyond speed and program size include word 
redefinition at any time and vocabulary structures that 
can be changed at will, for instance from simple to 
hashed, or from 79 Standard to Forth 83, You can be- 
head word names and reclaim space at any time. This 
includes automatic removal of a colon definition's local 
variables. 

Colon definitions can execute inside machine code 
primitives, great for interrupt & exception handlers. 
Multi-cfa words are easily implemented. And code 
words t>ecome incredibly powerful, with multiple entry 
points not requiring jumps over word fragments. One of 
many reasons our system is much more compact than 
its immense dictionary (1 600 words) would imply. 

INCREDIBLE FLEXIBILITY 

The Rosetta Stone Dynamic Linker opens the world of 
utility libraries. Link to resident routines or link & remove 
routines interactively. HS/FORTH preserves relocata- 
bility of loaded libraries. Link to BTRIEVE METAWIN- 
DOWS HALO HOOPS ad infinitum. Our call and data 
structure words provide easy linkage. 

HS/FORTH runs both 79 Standard and Forth 83 pro- 
grams, and has extensions covering vocabulary search 
order and the complete Forth 83 test suite. It loads and 
runs all FIG Libraries, the main difference being they 
load and run faster, and you can develop larger applica- 
tions than with einy other system. We like source code in 
text files, but support both file and sector mapped Forth 
block interfaces. Both line and block file loading can be 
nested to any depth and includes automatic path 
search. 



FUNCTIONALITY 

l^ore important than how fast a system executes, is 
whether it can do the job at all. Can it work with your 
computer. Can it work with your other tools. Can it trans- 
form your data into answers. A language should be 
complete on the first two, and minimize the unavoidable 
effort required for the last. 

HS/FORTH opens your computer like no other lan- 
guage. You can execute function calls, DOS com- 
mands, other programs interactively, from definitions, 
or even from files being loaded. DOS and BIOS function 
calls are well documented HS/FORTH words, we don't 
settle for giving you an INTCALL and saying "have at it " , 
We also include both fatal and informative DOS error 
handlers, installed by executing FATAL or INFORM. 

HS/FORTH supports character or blocked, sequential 
or random I/O. The character stream can be received 
from/sent to console, file, memory, printer or com port. 
We include a communications plus upload and down- 
load utility, and foreground/background music. Display 
output through BIOS for compatibility or memory 
mapped for speed. 

Our formatting and parsing words are without equal. In- 
teger, double, quad, financial, scaled, time, date, float- 
ing or exponential, all our output words have string 
formatting counterparts for building records We also 
provide words to parse all data types with your choice of 
field definition. HS/FORTH parses files from any lan- 
guage. Other words treat files like memory, nn@H and 
nn IH read or write from/to a handle (file or device) as 
fast as possible. For advanced file support, HS/FORTH 
easily links to BTRIEVE, etc. 

HS/FORTH supports text/graphic windows for MONO 
thru VGA. Graphic drawings (line rectangle ellipse) can 
be absolute or scaled to current window size and 
clipped, and work with our penplot routines. While great 
for plotting and line drawing, it doesn't approach the ca- 
pabilities of Metawindows (tm Metagraphics). We use 
our Rosetta Stone Dynamic Linker to interface to Meta- 
windows. HS/FORTH with MetaWindows makes an un- 
beatable graphics system. Or Rosetta to your own 
preferred graphics driver. 

HS/FORTH provides hardware/software floating point, 
including trig and transcendentals. Hardware fp covers 
full range trig, log. exponential functions plus complex 
and hyperbolic counterparts, and all stack and compari- 
son ops. HS/FORTH supports all 8087 data types and 
works in RADIANS or DEGREES mode. No coproces- 
sor? No problem. Operators (mostly fast machine code) 
and parse/format words cover numbers through 1 8 dig- 
its. Software fp eliminates conversion round off error 
and minimizes conversion time. 

Single element through 4D arrays for all data types in- 
cluding complex use multiple cfa's to improve both per- 
formance and compactness. Z = (X-Y) / (X + Y) would 
becoded:XY-XY -^ /ISZ(16bytes)insteadof:X@ 
Y@-X@Y@ + /Z!(26 bytes) Arrays can ignore 64k 
boundaries. Words use SYNON YMs for data type inde- 
pendence. HS/FORTH can even prompt the user for 
retry on erroneous numeric input. 

The HS/FORTH machine coded string library with up to 
3D arrays is without equal. Segment spanning dynamic 
string support includes insert, delete, add, find, replace, 
exchange, save and restore string storage. 

Our minimal overhead round robin and time slice multi- 
taskers require a word that exits cleanly at the end of 
subtask execution. The cooperative round robin multi- 
tasker provides individual user stack segments as well 
as user tables. Control passes to the next task/user 
whenever desired. 



APPLICATION CREATION TECHNIQUES 

HS/FORTH assembles to any segment to create stand 
alone programs of any size. The optimizer can use HS/ 
FORTH as a macro library, or complex macros can be 
built as colon words. Full forward and reverse labeled 
branches and calls complement structured flow control. 
Complete syntax checking protects you. Assembler 
programming has never been so easy. 

The Metacompiler produces threaded systems from a 
few hundred bytes, or Forth kernels from 2k bytes. With 
it, you can create any threading scheme or segmenta- 
tion architecture to run on disk or ROM. 

You can turnkey or seal HS/FORTH for distribution, with 
no royalties for turnkeyed systems. Or convert for ROM 
in saved, sealed or turnkeyed form. 

HS/FORTH includes three editors, or you can quickly 
shell to your favorite program editor. The resident full 
window editor lets you reuse former command lines and 
save to or restore from a file. It is both an indispensable 
development aid and a great user interface. The macro 
editor provides reuseable functions, cut, paste, file 
merge and extract, session log, and RECOMPILE. Our 
full screen Forth editor edits file or sector mapped 
blocks. 

Debug tools include memory/stack dump, memory 
map, decompile, single step trace, and prompt options. 
Trace scope can be limited by depth or address. 

HS/FORTH lacks a "modular " compilation environ- 
ment. One motivation toward modular compilation is 
that, with conventional compilers, recompiling an entire 
application to change one subroutine is unbearably 
slow. HS/FORTH compiles at 20,000 lines per minute, 
faster than many languages link — let alone compile! 
The second motivation is linking to other languages. 
HS/FORTH links to foreign subroutines dynamically. 
HS/FORTH doesn't need the extra layer of files, or the 
programs needed to manage them. With HS/FORTH 
you have source code and the executable file. Period. 
"Development environments" are cute, and necessary 
for unnecessarily complicated languages. Simplicity is 
so much better. 

HS/FORTH Programming Systems 

Lower levels include all functions not named at a higher 



level. Some functions available separately. 
Documentation & Working Demo 

(3 books, 1 000 + pages, 6 lbs) $ 95. 

Student $145. 

Personal optimizer, scaled & quad integer $245. 

Professional 80x87, assembler, turnkey, $395. 



dynamic strings, multitasker 
RSDL linker, 
physical screens 
Production ROM, Metacompiler, Metawindows 

$495. 



Level upgrade, price difference plus $ 25. 

OBJ modules $495. 
Rosetta Stone Dynamic Linker $ 95. 

Metawindows by Metagraphics (includes RSDL) 

$145. 

Hardware Floating Points Complex $ 95. 

Ouad integer, software floating point $ 45. 

Time slice and round robin multitaskers $ 75. 



GigaForth (80286/386 Native mode extension) $295. 

HARVARD 
SOFTWORKS 

PO BOX 69 
SPRINGBORO, OH 45066 
(513)748-0390 
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Scr # 187 

\ Tasker — (wait) (&a000( 21 7 86 BJR 23j45 ) 

\ get current task -from ready queue 
READYQ *L AR0 .L MOV, 

700 # 5R .W OR, .IBIT AR0 g<C .B TAS, MI HERE 4- «+ BCC, \ i 



1 # .SEMA AR0 &C .M ADDQ, 

BT IF, # TRAP, ( ready queue empty! 

AR0 C U .L MDV, U C AR0 .L CMP, 

ED IF, AR0 4 AR0 .L MOV, THEN, 

7 tt .IBIT AR0 S<[ .B BCLR, 
V make semaphore's task current 

B U &t RP .L MOV, RP C+ S .L MOV, 
^ Resume execution 

THEN, DR7 SR .W MOV, RTS, ;C 
— > uses dr7,ar2 expects 



\ increment semaphor 
) THEN, 

\ get head of readyq 
i C AR0 C .L MOV, 
\ rel ease queue 



RP C+ IP .L MDV, \ restr 



\ restore interrupt level 
,sp,rp valid 



\ Tasker — (next) 
SUBROUTINE (NEXT) NEXT ;C 
DECIMAL ;S 



Scr tt 188 
(68000) 12 02 86 BJR 
start Forth inner interpreter 



(SI6NAL) and (WAIT) assume that all context has been stacked, 
and that the last thing stacked is the PC far the restore. 
This is normally accomplished by entering via JSR. 

This subroutine is made the starting PC o-f a newl y-ini ti al ized 

task. Mhen the new task is started -from a queue, its IP and SP 

Mill be unstacked, and then (NEXT) will be entered. .. starting 
high— level execution at the given IP. 



\ Tasker — 
CODE START 

(START) 
CODE SIGNAL 

(SIBNAL) 
CODE WAIT 

(WAIT) 
CODE PAUSE 

(SIGNAL) 
CODE SUSPEND 



start - pause 

S C+ ARl .L MDV, 
*+ BSR, NEXT ;C 
S C+ AR0 .L MOV, 
*+ BSR, NEXT ;C 
S C+ AR0 .L MOV, 
*+ BSR, NEXT ;C 
READYQ #L AR0 .L 
*+ BSR, NEXT ;C 
SELFQ MYTASK - U 



(68000 ( 30 

\ tadr — 

\ qadr — 

\ qadr — 



Scr « 189 
7 86 BJR 17:32 ) 
! start new task 

! release resorce 

i acquire resorce 



MOV, 
I AR0 LEA, 



- ! switch to next task 



\ 



suspend sel f 



I resume task 
NEXT : C 



(WAIT) «+ BSR, NEXT ;C 
CODE RESUME S C+ AR0 .L MOV, 
SELFQ MYTASK - #L AR0 ADD, 

13 ;S 

14 Note that the Forth context in-formation (S,IP,RP) is saved by 

15 the task switching primitives. 



\ taskadr - 
(SIBNAL) *+ BSR, 



newdevi ce 



newresource 



Scr # 190 
(30 7 86 BJR 15:43 ) 



\ qadr — 1 initialize semaphore to for event 
DUP DUP CELL + ! SWAP 2 CELLS + ! ; 



\ Tasker — 

1 HEX 

2 : NEWDEVICE 

3 DUP DUP 
4 

5 : NEWRESOURCE \ qadr — 1 init. semaphore to 1 for shared resou 

6 DUP NEWDEVICE 10000 SWAP 2 CELLS + ! ; 
7 

8 DECIMAL jS 
9 
10 



• tasks are constantly being moved (i.e., 
relinked) from one list to another — the 
task order is dynamic, rather than static. 
This approach involves a minimum of 

data movement A task can be moved from 

one queue to another by changing four 

links. 

The linked list requires a very small 
memory overhead — three cells (12 bytes) 
per queue. This "queue header" contains a 
head pointer, a tail pointer, a 16-bit integer 
semaphore, and a multiprocessor "lock" 
bit. 

A snapshot of the queues during execu- 
tion might look something like Figure 
Three. 

Allocation of Tasks 

Tasks which are ready to run are held on 
a ready queue. When a CPU finishes one 
task — perhaps by executing pause — it 
will pick up the next task from the head of 
the ready queue. 

All the CPUs pick up tasks from the 
same ready queue, so the first CPU to be- 
come available will service the first waiting 
task. Since all CPUs see the same memory 
and I/O space, and have identical copies of 
the program, any task can run on any CPU. 

This means that the programmer does 
not need to know which CPU his c(xle is to 
run on. In fact, the programmer does not 
need to know how many CPUs are in- 
stalled. The task load is automatically di- 
vided among the installed CPUs. For more 
throughput, plug in another processor! 

The limiting factor is bus contention. 
We minimized this by giving each CPU a 
private (but identical) program memory, 
but still the VME bus becomes saturated 
when three or four CPUs compete for data 
memory. 

Protection of Shared Resources 

Our critical resources were protected 
against conflicting access with the classic 
"semaphore" operators, WAIT and SIG- 
NAL. Most textbooks on operating systems 
describe these in detail, so this will be just 
an overview. 

Each protected resource has an integer 
semaphore. Its initial value, +1, indicates 
that the resource is available. A zero sema- 
phore means the resource is in use. A nega- 
tive value, -N, indicates that it is in use and 
that there are N pending requests for the 
resource. 

Whenever a task requests a busy re- 
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source, it is placed on a "wait queue" for 
that resource. This queue is first-in, first- 
out — or, more to the point, first-come, first- 
served. Tasks on a wait queue consume no 
CPU time. 

The programmer does this through the 
operators wait and SIGNAL. 

WAIT decrements a given sema- 
phore. If the resource is busy, 
the task is parked on the wait 
queue, and a new task is started 
from the ready queue (Figure 
Four). 

S I GNAL increments the semaphore. If a 
task is waiting for this re- 
source, pause the current task 
and start the waiting task 
(Figure Five). 

WAIT and SIGNAL surround the code 
which uses the protected resource, as fol- 
lows: 

SEMAPHORE DISK 
: XXX DISK WAIT 

code to access disk 

DISK SIGNAL ; 

Note that we can always tell the state of 
the resource and its wait queue by examin- 
ing the semaphore value. In our implemen- 
tation, the semaphore and the header for the 
wait queue are stored together (Figure 
Two). 

(For those familiar with the "monitor" 
construct used in many concurrent lan- 
guages: monitors can be implemented very 
easily with semaphwes. Each monitor re- 
quires one semaphOTe, and all routines in 
die monitor wait and S IGNAL that sema- 
phore.) 

WAIT and SIGNAL are required to be 
indivisible. Nothing must alter or use the 
semaphore and queue data structure while a 
WAIT or SIGNAL is in progress. In a 
single-CPU system, this is done by dis- 
abling interrupts. In a multiple-CPU sys- 
tem, we must further guard against, say, 
two processors WAlTing the same sema- 
phore simultaneously. 

In the 68000, this is done with the indi- 
visible TAS (Test And Set) instruction. 
This instruction is not powerful enough to 
use in place of semaphores, but it is suffi- 
cient to protect the semaphores themselves 
from conflicting access. Figure Six shows 
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\ Tasker — i nit-task 

RTOP 3 CELLS - CONSTANT RINIT 



Scr * 191 
(30 7 86 BJR 15:38 > 
initially 3 cells stacked 



: INIT-TASK \ init-ip taskadr — i word to set up new task area 

\ copy user vars -from MYTASK 
\ top of user area -> TIB 
\ top o-f rtn stack -> RB 
\ 3 pushes down -> RP-TEMP 
\ top of param stack -> SB 
\ pc , init-ip ,sp: task context 
\ copy to task return stack 



MYTASK OVER UAREA + USIZE CMQVE 
DUP RSTACK + OVER +TIB + ! 
DUP RTOP + OVER +R0 + ! 
DUP RINIT + OVER +RP-TEMP + • 
DUP PTOP + OVER +S0 + ! 
DUP >R PTOP + (NEXT) ROT ROT 
SPe R> RINIT + 3 CELLS CMOVE 
2DRDP DROP ; 



;S This word assumes that execution of the new task is to begin 
with a high— level Forth word (as specified by init— ip). 



\ Tasker — null task - coldstart 
TASK NULLTASK \ 

: DONULL BESIN PAUSE AGAIN ; 

: COLDSTART READYQ NEWDEVICE 
SELFQ NEWDEVICE 
■ DONULL NULLTASK INIT-TASK 



\ • DONULL >BODY NULLTASK INIT-TASK 
DECIMAL ;S 



Scr « 192 
(30 7 B& BJR 15:43 ) 
\ "do-nothing" task for readyq 

\ must be a hi -level word! 

\ initially have tasks on q 
\ init. selfq (to be spawned) 
; \ Fig 

\ Forth-83 



\ Multiprocessor tasker glossary 

1 UAIT 

2 (WAIT) 
3 
4 
5 
b 
7 

a SIGNAL qptr — 

(SIGNAL) ar0 = qptr 



Scr tt 
05 02 86 BJR 



193 



qptr — 
arO = qptr 
Walt on indicated semaphore. Semaphore 
If "available", execution proceeds. If 
is placed on the semaphore queue, and a task i 
from the ready queue. 



i E decremented . 
"busy", the task 
started 



Signal indicated semaphore. Semaphore is incremented. 
If then "available", execution proceeds. If a task is 
waiting on the semaphore, the current task is put on the 
ready queue and the waiting task is started. 



Scr # 
11 02 86 BJR 



194 

\ Multiprocessor tasker glossary 

1 START taskadr — 

2 (START) arl = taskadr 

3 Put the given task on the ready queue. 
4 

5 PAUSE 

6 Suspend current task, and start next available task in 

7 the ready queue. 
8 

9 SUSPEND 

10 Current task is suspended and put on the its internal 

11 "self -queue" . The next ready task is started. 
12 

13 RESUME taskadr — 

14 Suspend current task, and start execution of the given 

15 task if it was SUSPENDed. 
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how TAS is used to make the semaphore 
operations indivisible. (This lock-and-un- 
lock action is also shown in Figures Four 
and Five.) 

Note that the "busy bit" in the sema- 
phore only means that the semaphore is 
busy, not that the resource is busy. So that 
the CPUs don't spend time waiting on this 
bit, we ensure that the only routines which 
set this bit also clear it after a few dozen 
instructions at most 

Managing Interrupts with 
WAIT and SIGNAL 

We wish to be able to start a task on the 
occurrence of an interrupt. Presumably, 
this task will have been in an idle state, 
waiting for the interrupt. WAIT and SIG- 
NAL let us do this. A semaphore (and 
queue) are defined for an interrupt, with the 
difference that the semaphore is initialized 
to zero instead of +1. The interrupt service 
task then WAlTs on this semaphore, caus- 
ing it to be parked on the wait queue. 

Some other task will be running when 
the interrupt occurs. The interrupt handler 
saves all of the machine context on that 
task's stack, then calls (signal). 
(SIGNAL) stacks the PC, puts the running 
task on the ready queue, and starts the 
service task which was waiting on the 
semaphore queue. 

When the service task completes, it will 
WAIT again. Eventually, the task that was 
interrupted will be pulled from the ready 
queue and its PC popped from its stack. The 
PC that was stacked points into the inter- 
rupt handler code, just after the call to 
(SIGNAL) . This will be the code to re- 
store the full context and return from inter- 
rupt. (Figure Seven shows how the context 
is stored by WAIT and SIGNAL.) 

The task is always resumed at the point 
in the machine code where it was sus- 
pended. This allows a different context to 
be saved for programmer and interrupt- 
driven task switches. A high-level task 
switch (e.g., PAUSE) need only save IP, 
RP, and SP. 

The Listing 

Listing One is the 68(X)0 assembler 
code for the tasker. It was written in a fig- 
FORTH derivative, so there are some dif- 
ferences from the Forth-83 Standard. 

SUBROUTINE defines a code word 
which simply returns its address when 
executed. The notation used here is ( xxx ) 
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1 SEMAPHORE name 



Scr » 
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2 
3 
4 
5 
6 
7 
8 
9 
IB 
11 
12 
13 
14 
15 




1 

2 
3 
4 
5 
6 
7 
8 
9 

la 
11 

12 



Allocate space -for a semaphore and queue header, and 
de-fine "name" to return its address when executed. 

TASK name 

Allocate space for a task (user area and stacks), and 
define "name" to return its address when executed. 



INIT-TASK 



init-ip taskadr 



Initialize the user variables and stack pointers for the 
given task, and save its machine context so that it will 
begin interpretation at init-ip when activated, 
init-ip must point to high-level Forth code. 
INIT-TASK must be used before STARTing a task. 



Scr # 196 

\ Multiprocessor tasker glossary 
NEWDEVICE qadr 

Set the semaphore to O and its queue header to "empty." 

Used to initialize a semaphore for an interrupt. 

NEWRESOURCE qadr 

Set the semaphore to +1 and its queue header to "empty." 
Used to initialize asemaphore for a shared resource. 
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(Figures continued from previous page) 
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Figure One. The hardware. 
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'•vaUUe) 

UNLOCK 
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NEXT 



LOCK 

ready queue 



get task from 

head of ^ 
ready queue 

I 

make It the 
current task 



UNLOCK 

ready queue 



NEXT 



Figure Four. wait. 




Semaphor* ValuM 

1 - this resource available 

• this resource In use 

-1 - In use, and one task waiting on 

-2 - In use, and two tasks waiting... 



Figure Two. A queue. 
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semaphore 
queue 



increment 
semaphore 
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Figure Five. SIGNAL. 
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Figure Three. System queues. 
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Figure Six. Multiprocessor protection. 
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Figure Seven. A task's user area. 
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for an assembly language subroutine; xxx 
for the executable Forth word. 

Screen 181 defines the layout of the task 
area (Figure Seven). TASK allocates this 
space in a named data structure. 

Screen 182 defines some of the layout 
of a semaphore queue header, sema- 
phore is the defining word. Note that the 
ready queue is defined the same as a sema- 
phore queue. 

Every task includes a "private" queue 
header in its user variables area. This "self 
queue" is used by suspend and resume 
(described below). 

( START) activates a task for the first 
time by putting it on the tail of the ready 
queue (see screen 183). From this moment 
on, except when executing, the task will 
always be on some queue or other. The 
remaining words simply move tasks from 
queue to queue. 

(SIGNAL) and (WAIT) are the basic 
task-control routines. They are callable 
from a machine-language routine, such as 
an interrupt handler. 

The Forth-callable start, signal, 
and WAIT are on screen 189. 

Note that a pause (voluntary task 
switch) is achieved by simply SIGNALing 
the ready queue. (Follow the logic in Figure 
Five.) 

A task is SUSPENDed by causing it to 
WAIT on its self queue, whose semaphore 
is initialized to zero. Another task can 
SIGNAL that semaphore to RESUME the 
suspended task. 

NEWDEVICE and NEWRESOURCE ini- 
tialize a semaphore queue for an interrupt 
and a shared resource, respectively. 

INIT-TASK initializes a task area cre- 
ated by TASK. It stacks a context such that 
the task will begin high-level execution at 
init-ip (which should be the parameter 
field address of a colon definition). 

Screen 192 illustrates the creation of a 
task, a do-nothing task in this case. Defin- 
ing one such task per CPU will ensure that 
the ready queue is never empty (an error 
condition). 

COLDSTART shows how the multi- 
tasker, boot task, and defined tasks are 
initialized in a colon definition. Some such 
word will be required in the final system's 
startup code. 

Where to Go From Here 

This implementation was adequate for 
our needs, but it can certainly be taken 



( Screens from page 13) 



Screen 11 

( MA1N2, MAINS SCREEN 

; MAIN2 CR 

Fl @ DUP ?PRINTER IF 
CR 



21:20 04/29/88 ) 



Vector to be rotated:" CR 
. " ( ■■ VX @ . BS . " , " VY @ . BS . 
VZ @ BS . ■■ ) ■■ CR THEN ?PR1NTER 

MAIN3 CR 

CR ." Enter components of Quaternion Axis:" CR 
. " X component: " INPUT VGX ! CR 
VGX («) 0= IF 

. " Y component: " INPUT CR DUP VGY ! 0= IF 

. " Z component: " INPUT CR VGZ ! 

ELSE VGZ ! THEN 
ELSE bllK VGY ! VGZ ! THEN ; 



Screen # IJ 



( 



MAXN4 SCREEN 
MAIN4 CR 

," Angle to rotate (in degrees): " INPUT AGG ! 
Fl @ DUP ?PRINTER IF 

CR ." Quaternion rotation vector: 



21:20 04/29/88 ) 



. CR 
CR 
CR 
VGX @ 
. BS 



VGX @ 
VGX @ 
VGZ @ 



SQR VGY I 
MVG @ / 
MVG @ / 



. " X component : " VGX 
. " Y component : " VGY @ 
. " Z component: " VGZ @ 
Quaternion Gyration Axis: (" 
VGY @ . BS . " . " VGZ @ 
." Angle to rotate (in degrees): 
AGG @ . CR THEN VPRINTER 
@ SQR + VGZ @ SQR + 2SQRT MVG 
VGXN ! VGY @ MVG @ / 

VGZN ! ; 



CR 



BS . " 

) " CR 



VGYN 



Screen It 13 



( 



MAIN5 SCREEN 
MAIN5 CR 
AGG @ 2 / DUP 



DUP 



DUP 

COS 1000 / Q02 S 
SIN 1000 / VGXN @ 
SIN 1000 / VGYN @ 
SIN 1000 / VGZN @ 
( Transfer of values to those in PQ word 
Q02 @ Q12 @ Q22 @ Q32 @ 
Qll @ Q21 @ Q31 @ 



21:20 04/29/88 



Q12 
Q22 
Q32 



QOl @ 
A3 ! 
E3 ! 
PQ 
QO @ 
Q3T ! 
QOT @ 



A2 ! 
E2 ! 

Ql @ 
Q2T 
QOl 



Al 
El 



AO 
EO 



Q2 @ Q3 @ 
! QIT ! QOT 
! QIT @ Qll 



Q2T @ Q21 



Q3T @ Q31 



Screen # 14 

( CONVERT-TO-NORMAL utilities 21:20 04/29/88 ) 

( For coping with the inexistence of 8087 co-processor. . . ) 
: CONVERT-TO-NORMAL 

QOT @ QIT @ Q2T @ Q3T @ 

Rl @ R2 @ R3 @ 

7 DO 

6 ROLL 10000 / 
LOOP 
R3 ! R2 ! Rl ! 
Q3T ! Q2T ! QIT ! QOT ! ; 
/1E4 ITER @ DO 10000 / LOOP ; 
/1E2 ITER @ DO 100 / LOOP ; 
DIVIDE 

R3 @ /1E4 R3 ! R2 @ /1E4 R2 ! Rl @ /1E4 
Rl ! QOT @ /1E2 QOT ! QIT @ /1E2 QIT ! 
Q2T @ /1E2 Q2T ! Q3T ® /1E2 Q3T ! ; 



(Screens conlinued on next page) 
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bcreen 

( 



# 15 



MAIN6 



ASK_C0NT1 
ASK_C0NT1 

Want more than one turn for the same vector? (1:Y 
INPUT NEGATE : 



21:21 04/29/88 ) 
0:N): •■ 



MAIN6 


CH 






VX 


@ VY @ VZ ( 


» QOT @ 


QIT @ 


Q3T @ 


NEGATE 






A3 ! 


A2 ! Al i 


AO ! 




E3 ! 


E2 ! El ; 


EO ! 


PQ 


QO @ 


Ql @ Q2 @ 


Q3 @ 




D ! 


C ! B ! A 






QOT @ 


QIT @ Q2T 


@ Q3T 


@ A @ 


A3 i 


A2 ! Al ! 


AO ! 




E3 ! 


E2 ! El ! 


EO ! 


PQ 


QO @ 


Ql @ Q2 @ 


Q3 @ 




R3 ! 


R2 ! Rl ! 


RO ! ; 





QIT @ NEGATE Q2T @ NEGATE 



B @ C @ D @ 



Screen 
< 



« 16 



MAIN7, ASK_C0NT2 
MAIN? CB 

Fl @ DUP ?PBINTER IF 
CR 
CR 



21:21 04/29/88 ) 



Total rotation by Quaternions is : " 
Q=(" QOT @ . BS . " )eO+(" QIT @ 
Q2T ® . BS . '■ )e2 + (" Q3T ® . BS . 
CR ." The resultant rotated vector is:" 
CR ." K=(" Rl @ . BS . " , " R2 @ . BS 
R3 @ BS . ■• ) ■■ INF0RM2 CR CR 

THEN ?PRINTER 

CH CR ." Total rotation by Quaternions is:" 
CR ." Q=(" QOT @ BS . " )eO+(" QIT @ 

Q2T @ . BS . " )e2 + (" Q3T @ BS . " )e3" 

CR ." The resultant rotated vector is:" CR 
Rl @ . BS . " , " R2 @ . BS . " , " R3 @ . BS . 
: ASK_C0NT2 . " Enter 1 to continue, to stop: 



BS 
)e3" 



." )el+(" 
INFORMl 



BS . " )el+( " 
INFORMl 
. " R=(" 
■ ) " INF0RM2 ; 
" INPUT NEGATE 



21:21 04/29/88 ) 



Screen <* 17 
( MAIN PROGRAM: RUNME 
: RUNME 

VINIT SEPARATOR 

*** FORTH QUATERNION PROGRAM ***" CR 
SEPARATOR CR ASKPRINTER 
BEGIN 

0_INTO MAINl MAIN2 

ITER 1 

BEGIN 

MAIN3 MAIN4 MAIN5 
ITER @ 1+ ITER ! 
CR ASK_C0NT1 NOT 

UNTIL 

MAIN6 ( DIVIDE ) 
MAIN? CR ASK_C0NT2 NOT 
UNTIL. ; 



further. 

Support could be included for private 
tasks, i.e., tasks restricted to one CPU and 
to that CPU's memory. This would largely 
solve the problem of bus saturation. 

We have prototyped a round-robin 
tasker with multiprocess^ support; this 
may be better suited to many applications. 

Finally, the principles of the 68000 
multiprocessor tasker can be applied to 
other CPUs! 
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Forth-83 

SEARCH ORDER 

STRUCTURE 

CHESTER H. PAGE - SILVER SPRING, MARYLAND 



. have developed a simple vocabu- 
lary search-order routine in which 

VOCl SEARCHES 
V0C2 SEARCHES 
V0C3 

establishes the specified search order, with 
V0C3 and all other vocabularies followed 
immediately by FORTH. Entering 
NORMAL . SEARCH restores the default 
condition of each vocabulary being fol- 
lowed by FORTH in the search order. 

My routine is based on a vocabulary 
name structure using the dummy link as a 
pointer to the last word in the vocabulary, 
and a dummy parameter as a pointer to the 
dummy link of the next vocabulary to be 
searched. (See Figure One.) 



A departure from 
tradition. 



CONTEXT /CURRENT point tO the 
appropriate dummy link, which in turn 
points to the last word in <vname>. The 
first word in < vn ame> has its link point to 
the dummy name (81A0) in <vname>. 
Thus, in an empty vocabulary, the "last 
word" is the dummy name of that vocabu- 
lary. See Figure Two for <vname2>. This 
is a departure from tradition. The dummy 
parameter in <vname> points to the 
dummy link of the next vocabulary in the 
search order, normally FORTH. 

Words needed for constructing and 
searching vocabularies: A five-parameter 
variable voc .list holding the names of 
all vocabularies; and a system variable 
SEARCH . voc playing the role of CON- 
TEXT, pointing to the top-word pointer of 
the vocabulary to be searched. 



: SET. CONTEXT 2+ CONTEXT ' ; 

! VOCABULARY FORTH DEFINITIONS CREATE 2 ALLOT C BASE 3 HEX 3 
A081 , [ BASE ! ] HERE 2- , C] FORTH 6 + , 
\ Bu i 1 d yname 

LATEST 2 BEGIN DUP MOC.LIST 3 WHILE 1+ 6 = ABORT" Too 
many yocabul ar i es" REPEAT MOC.LIST ! 
\ Add to yOC.LIST 
D0E3> SET. CONTEXT ; 

';FIND> is a primitiMe which per-forms the -function o-f FIND on 
a single vocabulary, searching -for a match until it -finds a 
dummy name . 

: FIND CONTEXT 3 SEARCH. VOC ! 6 1 DO SEARCH. <viOC 3 3 (FIND) 
?DUP IF LEAVE ELSE SEARCH. VOC S 2•^ 3 DUP 0= IF LEAVE THEN 
SEARCH. VOC I THEN LOOP ; 

: NORMAL . SEARCH <S 2 DO I VOC. LI ST 3 DUP 0= IF DROP LEAVE 
THEN NAME> 8 -^ t ' ] FORTH 6 + SUAP ! LOOP j 

Makes FORTH -follow each other vocabulary in search 

order 

: SEEK ( addr -f ) BL WORD COUNT HERE FIND ; 

: SEARCHES NORMAL . SEARCH CONTEXT 3 2* FORTH SEEK -1 = 0= 
ABORT" No such vocabulary" 6 + DUP CONTEXT I SWAP I j 
Checking -for -1 rather than simply a true -flag avoids 
a hangup i -f <RETURN> is pressed with no vocabulary name 
entered 



: SEARCH. ORDER CR CONTEXT 3 BEGIN DUP 6 - >NAME ID. 2-^ 3 DUP 
WHILE ." searches " REPEAT DROP ; 

Used as 

<vname> SEARCH. ORDER 

prints out the search order starting with <vname> and ending 
wi th FORTH. 



(Figures, continued on page 30) 



Chester H. Page earned his doctorate in mathematical physics at Yale and spent some 
36yearsattheNationalBureauof Standards. HisfirstForthwasWashingtonApplePi's 
fig-FORTH, which he modified to use Apple DOS, then ProDOS. and later to meet the 
Forth-79 and Forth-83 Standards. Recently, he added many features ofF83, including 
a four-thread dictionary (but no shadow screens) and a vocabulary name format that 
provides for a search-order routine. 
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THE CHALLENGE 

OF SORTS 



Forth Interest Group (FIG) is 
pleased to announce a challenge to all Forth 
programmers. Beat our sort program and 
have a chance to win a prize of your choice. 
The author of the program judged best in 
our tests will get to choose between free on- 
line access to the FIG RoundTable on 
GEnie for one month, a $ 1 50 credit toward 
purchases from the FIG Mail Order Form, 
or a check for $100. 

The Rules 

Submissions must be electronically 
transmitted to the Software Libraries in the 
FIG RoundTable on GEnie no later than 
midnight November 31, 1989. The results 
and the winning entry will be published in 
the March/April issue of Forth Dimen- 
sions. All entries and results will be avail- 
able on most Forth Bulletin Board systems 
soon after testing is complete. All submis- 
sions become the property of the Forth 
Interest Group for distribution as it sees fit. 
The source code for all entries must comply 
with the Forth-83 Standard (published in 
1983 by the Forth Standards Team), adocu- 
ment available on the FIG Mail Order 
Form. The source code may be submitted in 
text or block format, but must comply to the 
conventions in the block file SORT.BLK 
(see following). Submissions will be com- 
piled and tested with this test suite, and the 
average score after 8 TE S T s will be used 
to compare it to other submissions. The 
examples included in SORT.BLK provide 
best- and worst-case examples for sorting 
algorithms. The BUBBLE sort is the sim- 
plest, and the QUICK sort is a modification 
(by Wil Baden) of a sorting algorithm 
developed by C. Hoare. Figure One gives a 
sample of the statistics generated by each 
on the judges' system. 

Although we encourage you to beat the 
score of our QUICK sort, that is not neces- 



sary to win this competition. The winner 
will be chosen from the valid submissions, 
based on the lowest average score (the last 
entry in the right-hand column after 80 
TESTS). Submissions will be disqualified 
if they do not comply to the Forth-83 Stan- 
dard or if they fail to execute under this test 
suite. 

Test Details 

Dictionary bytes are determined by the 
size of the submitted sort after being com- 
piled into our version of Forth. This Forth is 
based on the popular F83 model developed 
by Harry Laxen and Mike Perry. Although 
it is upwardly compatible with F83, we do 
not guarantee that the entire test suite will 
run under your version. In addition, since 
each version of Forth differs in how it 
compiles source code, do not assume that 
you can duplicate our results. 

Figure Two shows statistics about how 
our Forth compiles source code. It is not 
intended to be a complete list of how our 
version of F83 works, but should give you 
an indication of how it differs from the F83 
model. Refer to Inside F83 by C.H. Ting 
(see the FIG Mail Order Form) for more 
complete details. 

RAM words are determined by memory 
usage outside the Forth dictionary; this 
includes the parameter and return stacks, 
PAD, TIB, and any other memory usage 
between these areas and the top of the 
dictionary (referenced by here). See the 
table cited above for indications of how this 
number is affected; I have found it ex- 
tremely hard to calculate, and have noticed 
that it is high by about 26 items. However, 
it is sufficient for the sake of this test. 

Fetches and stores are affected by ac- 
cess to the DATA array to be sorted. They 
are incremented by the words S@ and S ! 
which must be used for all accesses into the 



DATA array. 

Although this test suite is only based on 
a sort of 1024 bytes, it would not be useful 
to limit a sorting algorithm to this size. It 
should be assumed that there could be an 
unlimited number of data items and that the 
data could be of any size. The sorting algo- 
rithm should be easily modifiable to ac- 
commodate any variations in the data for- 
mat 

Compares are incremented by use of the 
word COMPARE which also must be used in 
your sorting algorithm. It will return a 
number that represents the difference be- 
tween two data items, according to the 
following truth table: 

nl < n2 = -1 
nl = n2 = 
nl > n2 = 1 

The execution time is based the MS- 
DOS time function call which returns the 
current time down to 1/lOOth of a second. 
Although it is generally accurate, it has 
shown variations of up to ±5/100ths of a 
second. This should not be significant, 
though, since the time is scaled by the 
number of bytes we are sorting and will 
only give us an error of ±5/1 02400ths in our 
final score. As best as possible, we have 
tried to isolate the execution time of the sort 
itself, but there is a slight overhead encoun- 
tered that is not measurable on our test ma- 
chine. The tests will be run on a 12.5 Mhz 
80386 computer running MS-DOS version 
3.21. The score is based on a calculation 
combining all the other numbers in the 
following formula: 

( (Fetches+Stores+Compares) + 
( (Dict+RAM) *Time) /lOO) /BYTES 

This will weight the memory usage 
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based on the amount of time the sort takes 
to execute, and will scale everything by the 
number of bytes being sorted. Although 
this is a fairly arbitrary measure of effi- 
ciency, it makes a sort that minimizes data 
access come out with the lower score. 
Under normal conditions, this could be 
considered the goal of any sorting algo- 
rithm. 

The madmum is the score based on the 
individual maximums of each of the above 
items. This will indicate a worst case for the 
sorting algorithm. However, it is highly 
unlikely that the results would ever be 
produced on any one test. This number will 
only be used to resolve a tie. 

The average is the score based on the 
individual average of each of the above 
items. It should indicate how the sort will 
perform under a variety of situations. This 
is the number we will use as the basis of our 
comparison. 



QUICK SORT 




















Test 


Diet 


RAM 


Fetehes 


Stores 


Compares 


Time 


Score 


Maximum 


Average 


RAMP 


400 


50 


9348 


1023 


7944 


2.03 


18.77 


18.77 


18.77 


SLOPE 


400 


51 


10383 


2050 


7951 


2.26 


20.89 


20.89 


19.83 


WILD 


400 


46 


17793 


5881 


11228 


3.79 


35.73 


35.74 


25.12 


SHUFFLE 


400 


52 


17823 


5885 


11253 


3.79 


35.81 


35.81 


27.80 


BYTE 


400 


46 


16317 


5493 


10201 


3.46 


32.76 


35.81 


28.79 


FLAT 


400 


52 


16255 


7810 


8064 


3.51 


32.91 


37.69 


29.47 


CHECKER 


400 


51 


16668 


7530 


8595 


3.63 


33.61 


37.69 


30.06 


HUMP 


400 


43 


15858 


5575 


9702 


3.40 


31.87 


37.69 


30.28 


BUBBLE SORT 


















Test 


Diet 


RAM 


Fetehes 


Stores 


Compares 


Time 


Score 


Maximum 


Average 


RAMP 


52 


40 


1047552 





523776 


155.38 


1548.45 


1548.45 


1548.45 


SLOPE 


52 


43 


2095104 


1047552 


523776 


352.78 


3613.22 


3613.22 


2580.57 


WILD 


52 


43 


1552494 


504942 


523776 


250.57 


2543.95 


3613.22 


2568.44 


SHUFFLE 


52 


43 


1542996 


495444 


523776 


248.75 


2525.23 


3613.22 


2557.58 


BYTE 


52 


43 


1240412 


192860 


523776 


191.85 


1928.96 


3613.22 


2431.82 


FIAT 


52 


40 


1047552 





523776 


155.77 


1548.49 


3613.22 


2284.65 


CHECKER 


52 


40 


1048574 


1022 


523776 


155.88 


1550.49 


3613.22 


2179.81 


HUMP 


52 


43 


1163672 


116120 


523776 


177.46 


1777.75 


3613.22 


2129.53 



Figure One. Sample statistics generated by the judges' quick-sort and bubble-sort routines. 



The Data 

The DATA array contains 1024ITEMS 
to be treated as 16-bit signed values. 

There are eight types of data patterns 
that we will cycle thnough during the tests. 
Each pattern will be used ten times during 
our test, and each will contribute to the 
scores: 

• The RAMP is a simple array of ascending 
values. This array is already sorted, so it 
should produce the lowest score. 

• The SLOPE is also a simple array, but of 
descending values. The values in the 
array need to be reversed. 

• The WILD pattern contains random 
signed values in each element. 

• The SHUFFLE pattern starts with the 
RAMP, then reorders each of the ele- 
ments into a random pattern. 

• The BYTE pattern consists of random 



eight-bit values. There will obviously be 
some duplication in this array. 

• The FLAT array is filled with a single 
value. It will be a random value, but the 
anray does not need to be rearranged. 

• The CHECKER pattern consists of alter- 
nating values. Two random values are 
selected and placed into the even and 
odd addresses. 

• The HUMP is a Gaussian distribution of 
values. This pattern has a bell shape 
when viewed in graphic format. 

The Analysis 

As described earlier, we selected a scor- 
ing system based on the criteria we con- 
sider important in a sorting algorithm. 
However, do not expect that you will be 
able to reproduce our exact results. To 
make timing comparisons before you sub- 
mit your entry, base them on the results you 
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Construct 

: Header 
DO 
LOOP 
IF 

ELSE 
UNTIL 
; etc . 

16-bit literal 
32-bit literal 



Dictionary 

4 bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 



RAM use 

1 word 
6 words 



1 word 

2 words 



Figure Two. Examples of how the judges' Forth compiles source code. 



obtain from running our examples on your 
computer. We will run the test 80 times, 
cycling through each data pattern ten 
times. We will upload the results from the 
last eight runs of each submission into the 
Bulletin Board section of the Forth 
RoundTable on GEnie, showing the indi- 
vidual scores for each data pattern. From 
there, they will be distributed to the other 
Forth Bulletin Board systems within our 
virtual network. The score based on the av- 
erages after the last run will be used to rank 



each entry. If there is a tie between two 
entries, we will use the score based on the 
maximums to break the tie. If there is still a 
tie, we will select the winner based on the 
readabihty of the source code and the docu- 
mentation included with it. We will publish 
the three entries with the lowest scores in 
the March/April issue of Forth Dimen- 
sions. 

All entries must either be uploaded to 
the Software Libraries of the Forth 
RoundTable on GEnie or mailed to the FIG 



business offices (P.O. Box 823 1 , San Jose, 
California 95155 U.S.A.). where they will 
be uploaded for you. All entries must con- 
tain the name, address, and telephone 
number of the author so that winners can be 
notified. The deadline for submissions is 
November 30, 1989. All submissions be- 
come the property of the Forth Interest 
Group. 

May the best sort win! 



SORT.BLK 

[Also available for downloading from the GEnie Forth RoundT able.] 

Screen 

\ SORT.BLK A Sorting Competition llJun89dar 

1 

2 ( Consider this a challenge. The Forth Interest Group 
wants) 

3 ( to see how good you are. Come up with a sort that 
will beat) 

4 ( this one and win your choice of valuable prizes. 
Read the) 

5 ( documentation file that accompanies this source for 
complete) 

6 ( details about the prizes and rules for participiion J 

7 ( May the best sort win. DaR ) 
8 

9 ( As in all my code since 1986 the stack at the 
beginning of ) 

10 ( a line not starting with a control flow word, and 
at extra ) 

11 ( space in the middle of a line, is given by the 

most recent ) 

12 ( stack comment . For Forth to be readable it is 
absolutely ) 

13 ( necessarythat what is on the stack is known .Aftera) 

14 ( control flow word the stack is given by extra 
space or a ) 

15 ( stack comment. WWB ) 



Screen 1 

\ Sort Comparison Utilities llJun89dar 

1 DEFER SORT ( # — P: Sort the data ) 
2 

3 FROM SORT.BLK 2 5 THRU ( Data Access ) 
4 

5 CREATE START ( — a P: Start of sort application code) 
6 

7 FROM SORT .BLK 6 8 THRU ( Sorting algorithm) HERE START - 
8 

9 CONSTANT DICTIONARY ( — # P:Bytes used for code ) 
10 

11 FROM SORT.BLK 9 16 THRU ( Testing routines ) 
12 

13 : TESTS ( # — P: Run sort tests ) HEADER 

14 DO ( ) I PATTERN TEST-SORT TEST-DATA RESULTS 

15 LOOP ; 
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Screen 2 

\ Data Array and Utilities llJun89dar 

1 : CELLS (a — a' P: Scale word size ) 2* ; 

2 : 2CELLS (a — a' P: Scale double size ) 2* 2* ; 
3 

4 1024 CONSTANT ITEMS ( — # P : Number of data items to sort) 

5 CREATE DATA( — a P: Data to be sorted ) ITEMS CELLS ALLOT 
6 

7 : D* ( dn dm — dp P: Double number multiply ) 

8 >R SWAP OVER ( nl ml n2 ml) * >R ( nl ml) 

9 OVER >R UM* ( dp ) R> R> SWAP R> 

10 ( dp n2*ml nl m2) * + + ; 
11 

12 : MU/NEAR (dn nd — dq P :Double divide with rounding 

13 DUP >R MU/MOD ( r dq ) >R >R ( r) 

14 2* R@ 1 AND + R> R> ROT ( dq r) 

15 R> > IF ( dq ) 1 M+ THEN ; 

Screen 3 

\ Data Access Statistics llJun89dar 

1 VARXABLETIMES ( — a P : Number of tests we have conpleted) 
2 

3 : !USE ( a -- P: Increment usage counter) 

4 DUP 2@ (ad) 1, D+ ROT 2! ; 
5 

6 : !MAX( a — P: Store unsigned maximum) DUP >R 2@ ( d) 

7 R@ 1 2CELLS + 2@ ( dO dl ) 20VER 20VER DU< 

8 IF 2SWAP THEN 2DR0P ( d ) R> 1 2CELLS + 2! ; 
9 

10 
11 
12 
13 
14 
15 



Screen 



!AVG ( a — P: Accumulate average) DUP >R 2@ { d ) 

R@ 2 2CELLS + 2@ ( dO d2 ) TIMES @ S>D D* 

D+ ( d ) TIMES @ 1+ MU/NEAR R> 2 2CELLS + 2! ; 



IRESULTS ( a — 



P: Analyze ) DUP !AVG !MAX 



reen 4 

\ Data Access Utilities llJun89dar 

2VARIABLEFETCHES ( — a P : Times fetched) 22CELLS ALLOT 
2VARIABLE STORES ( — a P -.Times stored )2 2CELLS ALLOT 
2VARIABLEC0MPARES ( — a P :Times compared ) 2 2CELLSALL0T 



S@ ( # -- r 
CELLS DATA + 

S! ( n # -- 
CELLS DATA + 



P: Must be used to fetch value ) 
( n ) FETCHES ! USE ; 



Must be used to store value ) 
) STORES !USE ; 



:COMPARE( nl n2 — 1 I 1 lP:Must beused for compares ) 
2DUP < >R > 1 AND ( t ) R> OR COMPARES ! USE ; 




1 
2 
3 
4 
5 
6 
7 
8 

9 : 

10 
11 
12 
13 
14 
15 

Sc 

1 

2 
3 
4 
5 
6 
7 



\ Bubble Sort Example llJun89dar 

: EXCHANGE ( #1 #2 — P: Exchange items at indices) 
2DUP S@ SWAP S@ ROT S! SWAP S! ; 

: BUBBLE ( # — P: Slow sort for comparison ) 
1 DO I DO J S@ I S@ COMPARE 
0< IF I J EXCHANGE THEN 
LOOP LOOP ; 

: .TIMER ( dl/lOOs — P: Display timer in seconds ) 
<# # # 46 ( . ) HOLD #S #> 
( a # ) 8 OVER - SPACES TYPE ; 



reen 6 

\ Quick Sort Utilities llJun89dar 
: ORDER-3 

( f 1 — f 1 # P: Order first, middle and last index) 

2DUP OVER - 21 32767 AND + >R 
DUP S@ R@ S@ COMPARE 0< IF DUP R@ EXCHANGE THEN 
OVER S|3 R@ S@ COMPARE 0> IF OVER R@ EXCHANGE 
DUP S@ R@ S@ COMPARE 0< IF DUP R@ EXCHANGE THEN 
THEN R> ; 



10 
11 
12 
13 
14 
15 



BOTH-ENDS ( f 1 p — f 1' P: Trim ends) >R ( f 1 ) 

BEGIN OVER S@ R@ COMPARE 0< WHILE 1 D+ REPEAT 

BEGIN DUP S@ R@ COMPARE 0> WHILE 1- REPEAT 
R> DROP ; 



TDS 9090 FORTH COMPUTER 

ideal for starter, teaching or target system 



build into your product 
for rapid completion! 



program with IBM-PC 




complete Fig-Forth system 
30K RAM; 16K EPROM 

over 3000 in use in Europe 



connect to Iteylnard, led display, RS 232 
35 I/O lines; 10 bH A/D option 
low power - down to 3 ma @ 6-16v 



Connect the 4" x 3" TDS 9090 single-board computer to an IBM-PC or 
compatible and start writing Forth code Immediately! Lots of ready made 

application programs come with the kit to do interrupt-driven I/O, graphics led 
driver, frequency measurement, solid-state speech and data-logging. The board 
includes a ROM-resident Forth language kernel and an assembler. By storing 
generated code in either norvvolatile RAM or EPROM, the board can be used in a 
target system or stand-alone product Based on the CMOS Hitachi HD 63A03Y 
microprocessor, it has two timers, two serial ports and interrupts which are 
available via Forth Instructions. Also included on board are 30K RAM for 
storing source code or data, 16K EPROM/novram for finnwaro, 256 bytes EEPROM, 
35 I/O lines, two RS 232 serial Interfaces, a watchdog timer to insure recovery from 
crashes, and an expansion bus. Interface the TDS 9090 to an 8 x 8 Keyboard or an 
led display, or use Mo of the I/O lines as an I2C interface. The ROM-resident Forth is 
an extended version of Fig-Forth with Forth words to support all the onboard 
peripherals, as well as the keyboard and led interfaces. Put product application 
software into PROM and it starts to run as soon as power is applied. Made in England 
by Triangle Digital Services, and well-known in Europe, the TDS 9090 is now 
supported in the USA and is available with less than two-week delivery at only 



Th« Saslig Comparty 1193 Mosslsy Rd 
tol: (716) 425-4367 or fax 



$219 (25qty) 

Victor NY 14564 USA 
(716) 425-7381 
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Screen 7 

\ Quick Sort List Processing llJun89dar 

1 : PARTITION ( f 1 — f 1' f 1 P: Rearrange lists ) 

2 ORDER-3 S@ >R 2DUP 1 -1 D+ ( f 1 f ' 1' ) 

3 BEGIN R@ BOTH-ENDS 2DUP 1+ U< 

4 IF 2DUP EXCHANGE 1 -1 D+ 

5 THEN 2DUP SWAP U< 

6 UNTIL R> DROP SWAP ROT ; 
7 

8 : SINK ( f p # -- f P: Do insertion ) ROT >R (p #) 

9 BEGIN 1- 2DUP S@ COMPARE 0< 

10 WHILE DUP S@ OVER 1+ S! DUP R@ = 

11 IF S! ( ) R> EXIT THEN 

12 REPEAT 1+ S! ( ) R> ; 
13 

14 
15 

Screen 8 

\ Quick Sort Algorithm llJun89dar 

1 : INSERTION ( f 1 — P: Insertion sort ) 2DUP U< 

2 IF 1+ OVER 1+ DO ( f ) I S@ I SINK LOOP DROP 

3 ELSE 2DR0P THEN ; 
4 

5 : HOARIFY ( f 1 — ...P: Quick and Insertion sorts ) 

6 BEGIN 2DUP 7 D+ U< WHILE PARTITION ( f 1' f 1) 

7 2DUP - >R 20VER - R> > IF 2SWAP THEN 

8 REPEAT INSERTION ; 
9 

10 : QUICK ( # -- P:Quick sort ) 1- SWAP DEPTH >R 

11 BEGIN { ... ) HOARIFY DEPTH R@ < UNTIL R> DROP ; 

12 " QUICK IS SORT 
13 

14 :SINKING ( n — P:Insertion Sort) 1- SWAP INSERTION; 

15 



Screen 9 

\ Random Number Generator llJun89dar 

1 VARIABLE SEED ( — a P: Random data pattern ) 
2 

3 : SETUP ( — P: Setup random sequence) 1234 SEED ! ; 
4 

5 : RANDOM ( — n P : Calculate next random number ) 

6 SEED @ ( n ) 314159261 * 1+ DUP SEED ! ; 
7 

8 : CHOOSE 

( limit -- 0..1imit-l PiChoose next random in range) 

9 RANDOM ( limit n ) UM* SWAP DROP ; 
10 

11 : GAUSS ( n — u P: Gaussian distribution ) 

12 RANDOM { n d ) RANDOM D+ RANDOM D+ 

13 RANDOM D+ RANDOM D+ RANDOM D+ 

14 6 UM/MOD SWAP DROP UM* SWAP DROP ; 
15 

Screen 10 

\ Random Data patterns llJun89dar 

1 : RAMP ( — P : Ascending values)ITEMS ODO I I S ! LOOP ; 

2 : SLOPE ( — P: Build sample of descending values ) 

3 ITEMS DO ITEMS 1- I - IS! LOOP ; 

4 : WILD ( — P: Build sample of random positive values) 

5 ITEMS DO RANDOM I S! LOOP ; 

6 : SHUFFLE ( — P :Buildsample of shuffled sequence) RAMP 

7 ITEMS DO ITEMS CHOOSE I EXCHANGE LOOP ; 

8 : BYTE ( -- P: Build sample of byte values ) 

9 ITEMS DO 256 CHOOSE I S! LOOP ; 

10 : FLAT( — P :Build sample of equal values) RANDOM ( n) 

11 ITEMS DO DUP I S! LOOP DROP ; 

12 :CHECKER( --P: Checker board) RANDOM RANDOM (nl n2 ) 

13 ITEMS DO DUP I S! SWAP LOOP 2DR0P ; 

14 : HUMP { — P: Gaussian or bell curved data ) 

15 ITEMS DO 256 GAUSS I S! LOOP ; 

Screen 11 

\ Pattern Setup and Analysis llJun89dar 

1 : PATTERNS ( — P: Group data setup patterns ) 

2 RAMP SLOPE WILD SHUFFLE 

3 BYTE FLAT CHECKER HUMP ; 
4 

5 : PATTERN(# — P : Set updata by test) DUP TIMES ! 8 MOD 

6 CELLS [ ' ] PATTERNS >BODY + ( cf a ) PERFORM ; 
7 

8 : TEST-DATA( — P : Check orderof data) DATA @ ITEMS 1 

9 DO ( prev ) DATA I CELLS + @ SWAP OVER > 

10 ABORT" Data has not been sorted" 

11 LOOP DROP ; 
12 

13 
14 

Screen 12 

\ Stack Usage Checks lljun8 9dar 

1 2VARIABLESTACK ( — a P : Sum of RAM usage) 2 2CELLS ALLOT 
2 

3 HEX A5A5A5A5 CONSTANT MARK ( — n P:Stackmark) DECIMAL 
4 

5 : FILL-RAM (-- P: Fill RAM with MARKers) MARK HERE ! 

6 HERE DUP 1 CELLS + RP@ OVER - CMOVE ; 
7 

8 : TEST-RAM ( — P: Check RAM usage ) 

9 0. STACK 2! HERE 1+ 1 CELLS NEGATE AND ( a ) 

10 BEGIN DUP @ MARK - IF STACK !USE THEN 

11 1 CELLS + RPO @ OVER U< UNTIL DROP 

12 STACK '.RESULTS ; 
13 

14 
15 



Total control 
mAiLMIFOm' 

For Programming Professionals: 
an expanding family of compatible, high- 
performance, compilers for microcomputers 

For Development: 

Interactive Fbrth-83 Interpreter/Compilers 
for MS-DOS, OS/2, and the 80386 

• 16-bit and 32-bit implementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 500 page manual written in plain English 

• Support for graphics.floating point, native code generation 

For Applications: Fbrth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermediate states, 
and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8088, 68000, 6502, 8051, 8096, 
1802, 6303, 6809, 68HC11,34010, V25, FrTX-2000 

• No license fee or royalty for compiled applications 



Laboratory Microsystems Incorporatsd 
Post Office Box 10430, li^arina del Rey, CA 90295 
Phone Credit Card Orders to: (213) 306-7412 
fW(: (213) 301-0761 
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Screen 13 

\ Setup Sort Tests llJun89dar 

1 2VARIABLE TIME ( — a P: Sum of time) 2 2CELLS ALLOT 
2 

3 : !TIME ( dl d2 — P: Store timing results ) 

4 2SWAP D- TIME 2! TIME '.RESULTS ; 
5 

6 : TEST-SORT ( — P: Test the sort algorithm ) 

7 0. FETCHES 2! 0. STORES 2! 0. COMPARES 2! 

8 FILL-RAM COUNTER ( d ) ITEMS SORT 

9 COUNTER ( dl d2 ) TEST-RAM !TIME ( ) 

10 FETCHES ! RESULTS STORES ! RESULTS 

11 COMPARES ! RESULTS ; 
12 

13 
14 
15 

Screen 14 

\ Sort Test Reports llJun89dar 

1 : HEADER ( — P: Setup and display test header ) 

2 FETCHES 3 2CELLS ERASE STACK 3 2CELLS ERASE 



3 


STORES 3 


2CELLS ERASE TIME 3 2CELLS ERASE 


4 


COMPARES 3 


2CELLS ERASE SETUP CR 


5 


." Test 


Diet RAM Fetches Stores Compares 


e 

7 


." Time 


Score Maximum Average" ; 


8 


.RESULTS 


( n -- P: Display results ) 


9 


>R ( ) 


DICTIONARY 4 U.R 


10 


STACK 


R@ 2CELLS + 2@ 4 UD.R 


11 


FETCHES 


R@ 2CELLS + 2@ 8 UD.R 


12 


STORES 


R@ 2CELLS + 2@ 8 UD.R 


13 


COMPARES 


R@ 2CELLS + 2@ 8 UD.R 


14 


TIME 


R> 2CELLS + 2@ .TIMER ; 


15 







Screen 15 

\ Report test results llJun89dar 

1 : .ANALYSIS ( n — P: Calculate results ) >R ( ) 

2 FETCHES RS 2CELLS + 2@ ( dfetch ) 

3 STORES R@ 2CELLS + 2@ ( dfetch dstore ) 

4 COMPARES R@ 2CELLS + 2@ ( dfetch dstore dcomp ) 

5 D+ D+ 100 ITEMS M*/ ( df+ds+dc/ items ) 

6 TIME R@ 2CELLS + 2@ ( d dtime ) 

7 STACK R> 2CELLS + 2@ DROP ( d dtime stack ) 

8 DICTIONARY + ITEMS M*/ ( dl d2) D+ .TIMER ; 
9 

10 : RESULTS ( — P : Displaytest results) CR TIMES @( r) 

11 8 MOD CELLS [ ALSO BUG ] ['] PATTERNS >BODY + @ 

12 ( cfa ) >NAME 8 L.ID ( ) .RESULTS 

13 3 DO I .ANALYSIS LOOP [ PREVIOUS ] ; 
14 

15 



Screen 16 

\ Random generator tests llJun89dar 

1 VARIABLECYCLE ( — a P: Random cycle check )4 CYCLE ! 
2 

3 : TALLY ( n — P: Show n) BASE @SWAP( [ base] n ) 

4 36 BASE ! 1 .R ( [base] ) BASE ! ; 
5 

6 : TEST-RANDOM ( — P: Test generator ) 

7 PAGE DATA ITEMS CELLS ERASE ITEMS ( k ) 11 

8 DO ITEMS CHOOSE ( k u) DUP 64 /MOD AT CELLS DATA + 

9 ( k a ) DUP >R @ ( k tally ) DUP 0= 

10 IF SWAP 1- SWAP THEN 

11 1+ DUP TALLY R> ! ( k ) DUP 0= 

12 IF 18 AT I U. LEAVE THEN 

13 I CYCLE @ MOD 0= IF PAGE THEN 

14 LOOP DROP ; 
15 



Indelko RTX Forth Kit 

Experiemental Kit for Hams RTX2000 Forth Chip 
including: 

One 100x100 mm square PC circuit board 
Two EPROM's containing cmForth for RTX 
cmForth source code on MS-DOS diskette 
Assembly instructions and documentation 
$150.00 

'More on NC4000' RTX Special Issues: 

Volume 10: RTX cmForth and papers 
Volume 11: RTX Supplement to 'Footsteps' 
and SC32 paper and documentation. 
$15.00 per volume 

Fat Forth for IBM PC/XT/AT: F-PC 2.25 

Disk set: four 360K diskettes, $25.00 
F-PC User's Manual, $20.00 
F-PC Technical Reference Manual, $30.00 



Ojfete Enterprises, Inc. 
1306 South B Street 
San Mateo, CA 94402 
(415)574-8250 
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phrases they lead to. Personally, I can stand 
writing TIME > instead of DETECTED, 
etc., and it keeps the number of required 
words to a minimum — I mention them for 
purposes of discussion. 

Choice of Time Units 

Another point of ongoing discussion is 
the design/choice of the set of time units. 
Some people argue that milliseconds are all 
that is evCT required (the code can easily be 
simplified to this end, if desired), but others 
feel that a multiplicity of time units is more 
complete and leads to more readable code. 

My own feeling on this issue is that a 



variable for millisecond-of-minute 
(0-59,999 unsigned) and another variable 
for minute-of-week (or even minute-of- 
month) provides millisecond resolution 
over a period of more than 45 days in a 
standard Forth double number. 

Also, in this design new, LAPSE, etc. 
could be run as infrequently as every 59.99 
seconds and still provide exact millisecond 
calculation of elapsed times. In the end, this 
decision depends on the source of the tim- 
ing information — ^if there is a real-time 
clock in the system, I usually implement 
whatever the hardware provides. 



Dave Edwards is a qualified electronic 
engineer who formed Jarrah Comput- 
ers — a microprocessor engineering 
consultancy using Forth as a key ele- 
ment— four years ago. His company has 
specialized in the design of custom 
microcontrollers, ranging from the 
68705 single-chip family to large indus- 
trial systems based on Rockwell's 
65F11 Forth chip and, recently. 
Motorola' S68HC11. 



(Pages' figures, from page 23) 
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code 
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dummy name 


dummy link 


dummy parm 



Figure One. A dummy link and parameter make the vocabulary connections. 
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Figure Two. 
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September/October 1989 

THE BEST OF 

GENIE 

GARY SMITH - UTTLE ROCK, ARKANSAS 



Ii my rush to demonstrate how the 
GEnie Forth RoundTable was involved in 
the standards effort, how erudite and infor- 
mative the guests in our real-time confer- 
ences are, and other impressive bits, I over- 
looked a facet that may be one of our most 
important services. This is how we stand as 
a resource center not only to the Forth 
expert, but also — ^perhaps even espe- 
cially — to the new users of Forth. 

I must begin with the Sunday night 
"Figgy Bar," usually conducted by Le- 
onard Morgenstem. Leonard, and some- 
times lead sysop Dennis Ruffer, conduct 
learning and technical sessions aimed at the 
new and intermediate Forth user. I have 
never come from these Sunday FIGGY's 
without some better understanding of 
Forth, so do not assume it is only for begin- 
ners. The point is, it is especially for begin- 
ners. No question is too trivial, so the first 
step to learning Forth the GEnie way is the 
Sunday night real-time conference. 

Also, several files in the library can 
assist the newcomer. Browsing just the 
keyword "tutorial" generates an impres- 
sive list of files worth looking at, including 
Bill Kibler's Forth tutorial written in Forth. 
All one needs to do is load this file in any 
Forth-83-compatible system (the public- 
domain version of F83 for your computer is 
also waiting in the library!), invoke 
Kibler's program, and then learn Forth in 
Forth. 

In the bulletin board area, we also have 
Category 15, Topic 1: Jack Brown's F-PC 
Forth tutorial. Jack has created the best on- 
line Forth tutorial I have ever seen. It is 
intended for use with Tom Zimmer's F-PC, 
a Forth for PCs and clones. It can be fol- 
lowed using other kernels, though, and a 
companion text file forF83 is in the library. 

What if someone just has a question? 
There is lots and lots of help available on 



the GEnie Forth RoundTable bulletin 
board. Answers are quick to come from the 
GEnie sysops and other GEnie users, or via 
ForthNet, which ties us to several other 
Forth gurus. Topics such as "Which Public- 
Domain Kernel" (Category 1, Topic 7), 
"Basics of the Forth Language" (Category 
2, Topic 1), and "for us beginners? HELP" 
(Category 2, Topic 5) are obviously in 
place to serve the new Forth user. 

Some sample problems and responses 
follow: 

Category 1, Topic 7, Message 1 

From: ToddNatkin 

Subj: F-PC, F83, MMS FORTH, etc. 

A simple question: Is F-PC the "cor- 
rect" implementation of Forth for me to be 
learning? Is it considered the most current 
of the public-domain implementations? I 
have looked over the material downloaded 
and ordered the technical reference manual 
from Dr. Ting, but do not have the time to 
review all the different versions of Forth 
and then pick the best one. 

Where do you stand on this issue? 

Category 1, Topic 7, Message 2 

From: Jerry Shifrin 

Subj: F-PC. F83, MMS FORTH, etc. 

>A simple question: Is F-PC the "cor- 
rect" implementation of Forth for me? 

Like, politically correct? It's on the 
approved list, okay? 

You can do useful work with most of the 
available Forths. F-PC is good in that it has 
numerous add-ons already available. 
OTOH, there may be too much material for 
some people to be comfortable. For a 
smaller implementation, check out Martin 
Tracy's ZenForth. 

Category!. Topic 7, Message 3 
From: John Somerville 



Subj: F-PC, F83, MMS FORTH, etc. 

Todd, hope you don't mind me butting 
in, but I am a relative newcomer to Forth 
and computing, so my experience may be 
of interest to you. I have tried several PD 
Forths and came to the following conclu- 
sions: 

Laxen & Perry's Forth (F83) is very 
good, particularly if you pick up Jack 
Brown's VEDIT. However, it does not 
have floating point, nor graphics. You can 
metacompile it to run on your hard drive. 

Zimmer's Forth is nice, particularly 
since Jack Brown has put out floating point 
for it. I have not tried the floating point, 
since I have purchased a commercial pack- 
age. However, I found it too large. 

I tried ZenForth, but there were a few 
versions all packed together, and I really 
had trouble knowing what documentation 
referred to what. 

UniForth has a demo package which 
didn't look too bad, but I didn't feel right 
about using it and I had no luck getting in 
touch with the company. 

I purchased the commercial package 
(UR Forth ) because I was tired of fishing 
around without documentation. Also, I 
started using versions which someone had 
altered and I frequently found myself lost in 
an undocumented morass. However, I 
think all the boards on this network have 
virgin copies of the F83 and F-PC systems. 

If I had to choose a public-domain Forth 
now, I would go for F-PC because of the 
floating point; butF83 still has moreappeal 
because of its compactness. If you choose 
either of these two, I recommend getting a 
hard copy of the source code and the user 
manuals available through FIG. 
regards 

NET/Mail: British Columbia Forth Board 
Bumaby, BC 604-434-5886 
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Category 1, Topic 7, Message 4 
From: GARY-S [Gary] 

MM20, and MX80 are text-oriented 
Forth kernels written for CP/M machines, 
while F-PC is written for PCs and com- 
patibles. I hope this helps resolve some of 
the confusion. 

Category 1, Topic 7, Message 5 
From: MJJawley 

I've been going Forth for over a year 
now. My recommendation is to start with 
F83 and Brodie's book. Starting Forth. The 
two complement each other nicely. Forget 
floating point It is a bad habit which you 
should unlearn. Later, if you really need it, 
it can be added. However, I stiU haven't 
found any good reason to use floating point. 
If you have a PC compatible, move up to F- 
PC after you are comfortable with F83, the 
line editor, and blocks. I think it important 
to be exposed to these for a general under- 
standing of Forth. At least at first, down- 
load only applications written for your 
particular version of Forth. Otherwise you 
will go nuts trying to supply the "missing 
word" which hangs your loading process. 
With F-PC, you will have the luxury of a 
screen editor and sequential files to work 
with. You will need the documentation 
from Dr. Ting. Enjoy! 

By the way, when you get stuck on a 
problem, don't be shy. Post a message to 
this board and the experts here will pitch in 
to help. They helped me several times. Let 
us know how you're doing... 
a recent beginner — meh 

Topic 33 
From: J.Ventola 

Sub: neophyte needs F83 examples 

This topic is for pointing us neophytes 
to examples in F83 of doing simple things 
like getting input from a user. 

Category 1 , Topic 33, Message 26 
From: K.SmithlO 

Just going over these messages for the 
first time and noticed some questions I 
(finally) might help with... One of the 
handiest things I found with using F83 
(MS-DOS) is that you can load a screen — 
a single screen — from another file while 
you are in the process of loading screens 
(blocks) from a different application... a 
good example of this is the 
EXTEND86.BLK load screen, which 
loads CPU8086.BLK screen 1 and 



UTILITY.BLK screen 1; each of these 
screens is a list of load instructions for the 
screens within its file, and all of this can be 
redirected or cancelled or added to as 
needed. I do my development with an 
F83.COM version that has all the utilities I 
might need or want; then, when I've fin- 
ished my application, I take its file and only 
load what it needs — usually not a screen 
editor or debugger or dumping, etc. The 
load screens act as a vector table pointing to 
what you want to use, without having to 
physically copy a screen into your applica- 
tion file (you do that at compile time in 
memory). 

Which reminds me of something else 
that came up in the messages above, which 
is that Forth code is pretty portable — ^I 
know, I know, I've had some real fun trying 
it — but most code is gonna follow, or build 
on, accepted Forth fundamentals. If the 
original programmer was careful, you'll 
find most of the CPU- or system-specific 
code factored out from the general code 
(i.e., if you're going to write directly to 
screen memory and bypass the standard 
system calls, which words like emit arc 
usually built on, thai code will be off in its 
own screen grouped with supporting code, 
all of it building up to provide the whole 
application with generaUzed words like 
"print" — you could rewrite the low-level 
screen-memory codes to use your system 
addresses, etc., or simply make up "print" 
from general Forth output words like 
EMIT. 

Long winded! You'd think I was a For- 
tran programmer! 

Category 1, Topic 33, Message 27 
From: KSmithlO 

Thought I'd better split up these replies 
into separate notes. J. Ventola brought up 
implementing Pilot in Forth, but also men- 
tioned that he'd found a cheap version 
available, so. .. but I bet some of the useful 
qualities of Pilot would be handy, at least as 
a module, within Forth. For a reference on 
Pilot, I remember an article in Computer 
Language magazine, the July and Septem- 
ber 1986 issues, titled "Interpreter E)esign 
and Construction, formal language defini- 
tion and initial coding in Pilot." In the 
article, the subject really is formal language 
definition, but the vehicle is to define Pilot. 
Not sure, don'tremember how strictly Pilot 
is actually followed, but the article will 
provide ideas on how to go about imple- 



menting a language, as well as discussing 
the attributes of Pilot . 

Category 1, Topic 33, Message 28 
From: KSmithlO 

Computer Language magazine has 
been a great and enjoyable resource for me 
over the years, but for lots of Forth refer- 
ence I recommend Dr. Dobb's Journal. 
Martin Tracy's "4th Column" would be 
interesting to a new or old Forth program- 
mer. Something that has helped me under- 
stand and use Forth better is to look at other 
languages (for which it is often easier to 
find a larger variety of subjects covered 
and, generally, more references), and also 
to look into more general aspects of com- 
puterprogramming. I've found that, as I've 
gotten into Forth, what I thought was a lack 
of understanding of Forth on my part 
turned out to be a lack of understanding of 
how something goes on inside my com- 
puter! I needed to see how interrupts work, 
even on a simple level, before I could 
resolve some file I/O problems I had, for 
example. Forth handled my needs quite 
well, once I knew what had to be done and 
how to go about it. On a recent project 
written in both Turbo BASIC and F83, 1 
reduced the program file size by 30%, 
reduced execution time about 60%, and 
made the source instructions much clearer 
using the Forth system! 

Algorithms! Get a nice, readable book 
on data structures. Try implementing some 
modules in a language more familiar to you 
(BASIC, possibly), then again in Forth. I'll 
bet there's a wealth of advice and sugges- 
tions to be had in this vein here on GEnie's 
Forth forum! Am I right everybody? 

Category 1, Topic 33, Message 30 
From: NMorgenstern [Leonard] 

To K.Smith: Yea and verily! Your 
experience is that of many others. Mahlon 
Kelly commented a few weeks ago on one 
of our Figgy Bar sessions that computer 
languages were designed to give the user 
access to the computer but, more impor- 
tantly, to protect the computer from the 
user. This is accomplished, of course, by 
limiting what the language can do. Forth is 
free of these restrictions. Mahlon teaches 
Forth, and students have told him that, for 
the first time, they understand the com- 
puter. 

Helen Burke, a friend of mine who is a 
I well-known metal sculptor, talks a lot 
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about organic form in her art, meaning that 
the form grows naturally from the materials 
and the function. Forth is organic in this 
sense, growing from the microprocessor 
and operating system rather than from a 
preconceived set of rigid ideas about what 
a computer language should look like, d la 
Wirth, Kemigan, and others. Regrettable... 

Category 2 Introduction to Forth, Topic 5 
From: MSilva (Forwarded) 
Sub: for us beginners? Help 

We beginners need a place to get our 
feet weL I am somewhat of an accom- 
plished programer in assembler, Fortran, 
COBOL, Pascal. . . but not Forth. Where do 
I get started? 

Category 2, Topic 5, Message 106 
From: CStruyckenl 

Very basic question: I am trying to get 
condensed mode out of my stargeminilOx 
using F83. In screen 44 of utility.blk, I 
changed this: 

: epson 

control o emit ; 
to this: 

: starcond 
control 15 emit ; 

and also replaced the no op in the next line 
with starcond. I then loaded the screen. 

This does not seem to work. I tried to see 
if save- system f 83 .com would make 
a difference. . . it did not. How do I get this 
to work? I also noticed that the whole 
screen got reloaded, resulting in many 
"already exists" notices. Does this mean 
Forth has now two identical compilations 
of each of these "already exists" words? If 
so, what is the correct way to load a word 
without reloading the whole screen? 

Category 2, Topic 5, Message 107 
From: NMorgenstern [Leonard] 
To: CStruyckenl 

"I changed control o emit to ... . control 
15 emit..." 

In F83, the word CONTROL gets the 
next word from the input stream and masks 
its first character back to five bits. Thus, 
control-o is the same as 15 (decimal), while 
control- 15 would be 1, 

On Epson printers and many others, 15 
(control-o) should put you into condensed 
mode. But you have to send it to the printer. 



You should type printing on first. 

"I got a lot of 'already exists' mes- 
sages." 

Forth will warn if you are redefining a 
word. It is a warning, not necessarily an 
error, because sometimes you want to rede- 
fine something. In your case, it was an 
error. You need to forget the words you 
have defined. Thus, FORGE T FOO removes 
the word FOO and all words subsequently 
defined. F83 makes forgetting easy by a 
special word, MARK. The first thing I do 
before loading anything is type MARK TO- 
DAY. Then, if I type TODAY, it forgets 
everything after TODAY, but not the word 
TODAY itself. F83 "makes it easy to f(x- 
get," as the old song goes. 

It sounds to me as if you are making 
good progress. Please keep asking ques- 
tions — others learn from the answers, as 
well as yourself. Also, if you can, attend the 
Sunday night round tables. They are spe- 
cially aimed at beginners like yourself. 
Good luck! 

Category 2, Topic 5, Message 108 

CStruyckenl 

To: NMorgenstern 

Thanks very much for your help and 
encouragement. I am just starting to work 
my way through chapter nine of Starting 
Forth (second edition), and things are be- 
coming a lot more confusing. In the mean- 
time, I still have not resolved the printer 
mystery. (I do have a condensed printout of 
all the blocks now by flicking the appropri- 
ate dip-switch on the printer.) This is what 
I have discovered so far: When the printer 
is not hardware-forced into condensed 
mode and I use the command print ing- 

ON, typing 15 EMIT or CONTROL O EMIT 

will software-force the printer into con- 
densed mode. But, after having changed 
NOOP to EPSON in the second line of 
screen 44, i.e., 

DEFER INITPR 
' EPSON IS INIT-PR 

the words print inG-ON, show, and 
LISTING should set the printer in con- 
densed mode by themselves (because they 
all use INIT-PR in their definition). I get 
the feeling they all are still refering to the 
old init-pr, before I changed it. Does 
F83 use a precompiled inTLITY.BLK, 
and does it just pretend it is loading the 
screens? When, as an experiment, I tried to 



FIG-FORTH for the Compaq, 

IBM-PC, and compatibles. $35 
Requires DOS 2.0 or later, 
uses standard DOS files, hard 
disk or floppy. 

Full-screen editor uses 16by 
64 format, has HELP screen 
via single keystroke. Source 
included for editor and other 
utilities. 

SAVE allows storing Forth 
with all currently defined 
words onto disk as a COM 
file. 

Definitions are provided to 
allow beginners to use Starting 
Forth as an introductory text. 

Source code available as an 
option, add $20. 

Metacompiler for 6303/6803 

Runs on a host PC, produces 
a PROM for a target board. 
Includes source for 6303 FIG- 
FORTH with multi-tasker. 
Application code can be 
Metacompiled with Forth to 
produce a target application 
PROM. $280 

Metacompiler for 68HC1 1 

As above, except power fail 
handling is omitted $268 

ALL CMOS Processor Board 

Utilizes the 6303. Size: 3.93 
by 6.75 inches. Uses 11-25 
volts at 12ma plus current for 
options. $175-225 

Up to 24 kb memory: 8k RAM, 
8k PROM, additional 8k RAM 
or PROM as desired. Backup 
of RAM via off board battery. 

Serial port and up to 40 pins 
of parallel I/O. Processor buss 
available at optional header to 
allow expanded capability via 
your interface board. 



Micro Computer 
Applications Ltd 

8 Newfield Lane 
Ne\Mtown, CT 06470 
203-426-6164 



Foreign orders add $5 shipping and handling. 
Connecticut residents add sales tax. 
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FORGET the original EPSON, I got a 
"Below Fence" message. When does one 
need to do a s AVE-s ystem F8 3 . COM, 
and why and when does one need to meta- 
compile? Do these things all have to do 
with the fact that F83 is working under 
DOS? 

Category!, Topic 5, Message 109 
From: Pete Koziar 
Subj: printer initialization 

One important step you left out: F83 
does not invoke EP SON when [Anting; it 
invokes a deferrred word called init- 
PR, which is set up to be a noop. To use 
that printer control, type: 

■* epson is init-pr 

before you try to print or list anything. If 
you then want a listing, just type list- 
ing any time after redirecting init- 
p R. If you just want to echo what is on the 



screen in condensed mode, you would need 
to say: 

printing { 

There is anoth^ word, by the way, 
known as PAGE. If your printer supports 
automatic form-feeds (most do, nowa- 
days), you should also type: 

' form-feed is page 

I hope this helps! 

Via Qwikmail 2.01 The Baltimwe Sun 

Category 2, Topic 5, Message 110 

From: CStruyckenl 

To: Peter Koziak 

Subject: printer initialization 

Thanks for your response, Peter. I had 
ab-eady reset NOOP to Epson, but this did 
not make it work either. I finally figured 
that the wwds in UTILrrY.BLK must be 



precompiled and that, therefore, the other 
words that use init-pr in their defini- 
tions are using the older init-pr that 
was set to noop. Does this make any 
sense? Without really knowing what I was 
doing, I re-metacompiled the system and 
now everything is working. It is still not 
ccMnpletely clear what the metacompiling 
does and how it differs &(Mn save-sys- 
tem, but maybe the "mdei the hood" 
chapter in Starting Forth will make things 
a bit clearer. 

Category 2, Topic 5, Message 111 
From: Steve Palincsar 
Subject: F83 utility. blk 

It's been several years since I seriously 
looked at F83, but as I recall you are abso- 
lutely correct in your surmise that it uses a 
precompiled UnLITY.BLK. All the .BLK 
files supplied in the .ARC file are there for 
documentation and have already been in- 
craporated in the F83.COM file. I don't 



SDS FORTH 



for the 



8051 



Programming Environment 

□ Use your IBM PC compatible as terminal and disk server 

□ Trace debugger 

□ Full screen editor 

Software Features 

□ Supports Intel 805x, 87C51FA, N80C451, Siemens 80535, Dallas 5000 

□ Forth~83 standard compatibility 

□ Built-in assembler 

□ Generates headerless, self starting ROM-based applications 

□ RAM-less target or separate data and program memory space 

SDS Technical Support 

□ 150-1- pages reference manual, hot line, 8051 development board available now 

Limited development system, including PC software and 8051 compiled software with manual, for $150.00. 
(generates ROMable applications on top of the development system) 



mC, 5375 Pare Avenue #210, Montreal, QC, Canada H4P 1P7 (514) 731-5797 





Forth Dimensions 



34 



Volume XI, Number 3 



recall any optional extension files in the 
Laxen &Peny package itself that you need 
to load. (There are, of course, hundreds if 
not thousands of extensions for F83 in the 
public domain.) 

Category!, Topic 5, Message 113 
From: F. Sergeant 

C.Struyckenl, there is no need to rede- 
fine the word EPSON or to put the new 
word in UTILITY .BLK next to EPSON. 
There is no need to recompile your Forth 
system. Leave EPSON alone and define a 
brand-new word that will initialize your 
printer, which I gather is not an Epson. Call 
the new word starcond, as you sug- 
gested, or Gemini 1 OX, or whatever. Putit 
anywhere in an empty screen. 

You would want code something like 
this: 

HEX 

: GEMINI 1 OX ( — ) 
15 EMIT ; 



(This word puts the Gemini printer into 
condensed mode.) 

' GEMINIlOX IS INIT-PR 
(This re-vectors INIT-PR so it will use 
your brand-new definition when it does 
SHOW, etc., without having to recompile 
your Forth system.) 

SAVE-SYSTEM F83G.COM 

(The "G" is to remind you that this version 

will work with your Gemini printer.) 

I hope this clears things up. — ^Frank 



tf ^ If 



In the next "Best of GEnie" column, we 
will look at how ForthNet has grown since 
its first faltering steps a few months ago. 



Many of the messages above were posted 
to GEnie via ForthNet, thanks in large 
meassure to the unflagging efforts of Jerry 
Shifirin, sysop of the East Coast Forth 
Board. 

To suggest an interesting guest, please 
leave e-mail posted to GARY-S ot GEnie 
(gars on Wetware and the Well), or mail me 
a note. I encourage anyone with a message 
to share to contact me via the above or 
through the offices of the Forth Interest 
Group. 
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POPUP WINDOWS 
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MENUS 



Send checX or money order 
U.S. Funds only 
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Forth Interest Group 

The Forth Interest Group serves both 
expert and novice members with its net- 
work of chapters. Forth Dimensions, and 
conferences that regularly attract partici- 
pants from around the world. For member- 
ship information, or to reserve advertising 
space, contact the administrative offices: 

Forth Interest Group 

P.O. Box 8231 

San Jose, California 95155 

408-277-0668 

Board of Directors 

Robert Reiling, President (ret. director) 
Dennis Ruffer, Vice-President 
John D. Hall, Treasurer 
Terri Sutton, Secretary 
Wil Baden 
Jack Brown 
Mike Elola 
Robert L. Smith 

Founding Directors 
William Ragsdale 
Kim Harris 
Dave Boulton 
Dave Kilbridge 
John James 

In Recognition 

Recognition is offered annually to a 
person who has made an outstanding con- 
tribution in support of Forth and the Forth 
Interest Group. The individual is nomi- 
nated and selected by previous recipients of 
the "FIGGY." Each receives an engraved 
award, and is named on a plaque in the ad- 
ministrative offices. 

1979 William Ragsdale 

1980 Kim Harris 

1981 Dave Kilbridge 

1982 Roy Martens 



1983 John D. Hall 

1984 Robert Reiling 

1985 Thea Martin 

1986 C.H. Ting 

1987 Marlin Ouverson 

1988 Dennis Ruffer 

ANS Forth 

The following members of the ANS 
X3J14 Forth Standard Committee are 
available to personally carry your propos- 
als and concerns to the committee. Please 
feel free to call or write to them directly: 

Gary Betts 
Unisyn 

301 Main, penthouse #2 
Longmont, CO 80501 
303-924-9193 

Mike Nemeth 
CSC 

10025 Locust Sl 
Glenndale, MD 20769 
301-286-8313 

Andrew Kobziar 

NCR Medical Systems Group 

950 Danby Rd. 

Ithaca, NY 14850 

607-273-5310 

Elizabeth D. Rather 
FORTH, Inc. 

1 1 1 N. Sepulveda Blvd., suite 300 
Manhattan Beach, CA 90266 
213-372-8493 

Charles Keane 
Performance Packages, Inc. 
515 Fourth Avenue 
Watervleit, NY 12189-3703 
518-274-4774 



George Shaw 
Shaw Laboratories 
P.O. Box 3471 
Hayward, CA 94540-3471 
415-276-5953 

David C. Petty 
Digitel 

125 Cambridge Park Dr. 
Cambridge, MA 02140-2311 
617-576-4600 

Forth Instruction 

Los Angeles — ^Introductory and inter- 
mediate three-day intensive courses in 
Forth programming are offered monthly by 
Laboratwy Microsystems. These hands-on 
courses are designed for engineers and 
programmers who need to become profi- 
cient in Forth in the least amount of time. 
Telephone 213-306-7412. 

On-Line Resources 

To communicate with these systems, set 
your modem and communication software 
to 300/1200/2400 baud with eight bits, no 
parity, and one stop bit, unless noted other- 
wise. GEnie requires local echo. 

GEnie 

For information, call 800-638-9636 

• Forth RoundTable (ForthNet link*) 
Call GEnie local node, then type M710 
or FORTH 

SysOps: Dennis Ruffer (D.RUFFER), 
Scott Squires (S.W.SQUIRES), 
Leonard Morgenstem (NMORGEN- 
STERN), Gary Smith (GARY-S) 

• MACH2 RoundTable 
TypeM450orMACH2 
Palo Alto Shipping Company 
SysOp: Waymen Askey (D.MILEY) 

(Continued on next page) 
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(Reference Section continued) 
BIX (ByteNet) 

For information, caU 800-227-2983 

• Forth Conference 

Access BIX via TymeNet, then type 
j forth 

Type FORTH at the : prompt 
SysOp: Phil Wasson (PWASSON) 

• LMI Conference 

Type LMI at the : prompt 
Laboratory Microsystems products 
Host: Ray Duncan (RDUNCAN) 

CompuServe 

For information, call 800-848-8990 

• Creative Solutions Conference 
Type !Go FORTH 

SysOps: Don Colbum, Zach Zachar- 
i£di, Ward McFarland, Jon Bryan, 
Greg Guerin, John Baxter, John 
Jeppson 

• Computer Language Magazine Con- 
ference 

Type !Go CLM 

SysOps: Jim Kyle, Jeff Brenton, Chip 
Rabinowitz, Regina Starr Ridley 

Unix BBS's with Forth corferences 
(ForthNet links*) 

• WELL Forth conference 

Access WELL via CompuserveNet or 
415-332-6106 

Fairwimess: Jack Woehr (jax) 

• Wetware Forth conference 
415-753-5265 

Fairwimess: Gary Smith (gars) 

PC Board BBS' s devoted to Forth 
(ForthNet links*) 

• East Coast Forth Board 
703-442-8695 
SysOp: Jerry Schifrin 

• British Columbia Forth Board 
604-434-5886 

SysOp: Jack Brown 

• Real-Time Control Forth Board 
303-278-0364 

SysOp: Jack Woehr 

• Melbourne FIG Chapter 
Lance Collins 

(03) 299-1787 in Australia 
61-3-299-1787 international 



(Letters, continued from page 6) 

CASE will increment this count: 

: +CASE ( — ) 

4 S> 4 S> 
1+ 

4 >S 4 >S ; 

: CASE ( n — ) 
+CASE 

4 S@ = IF ; 

Finally, end will do all of the cleanup: 

: FORCE ( — ) 

3 S> DROP 
1 3 >S ; 

: END ( — ) 
FORCE 

4 S> DROP 
4 S> 

DO THEN LOOP ; 

CASES is no longer needed, as its func- 
tion has been absorbed by END. 

With these changes, the case statement 
can help protect a programmer from an 
oversight or a miscount. The disadvantages 
here are some additional overhead in CASE 
and a larger case stack. 

Enjoy, 

Wes Cowley 

P.O. Box 280138 

Tampa, Florida 33682-0138 

wcowley@dci2wc.das.net or 

wes@cup.portal.com 

On-line Down Under 

Dear Editor, 

The Melbourne Chapter of the Forth 
Interest Group wishes to acknowledge the 
support we have had in keeping our chapter 
going and in setting up our bulletin board. 

We wish to thank Robert Reiling for his 
encouragement and help in obtaining an 
early copy of F-PC for us, and some other 
Fordi software to start our board with last 
year. 

We particularly thank Jerry Shifrin for 
his initial donation of files, which really 
gave our members something to think 
about. Recently, we have had another large 
batch of files from Jerry, which makes our 
board a major resource for Forth people 
here. 



We want the Forth community to know 
that their efforts are gready appreciated 
here. 

Yours faithfully. 
Lance Collins, Secretary 
Melbourne Chapter 



(Editorial, continued from page 4) 

* * ♦ 

Some Forth notables are scheduled to 
appear at the Embedded Systems Confer- 
ence in San Francisco on September 26-29. 
FORTH, Inc. will be joining a respectable 
exhibit floor with the likes of Advanced 
Micro Devices, H-P, Intel, and Tektronix. 
And Elizabeth Rather and Ray Duncan, 
along with P.J. Plauger and other pundits, 
will head intensive workshops during the 
event This will be a fine opportunity for 
some cross-polUnation, and it would be 
hard to find two better proponents of Forth 
to speak about embedded systems and real- 
time programming. 

ie * 

See your lawyer for details: 

Some of our readers are consultants, at 
least part of the lime, and some of them use 
consultants. A decision reached by theU.S. 
Supreme Court early this summer affects 
both groups by saying that freelance artists 
and consultants hold the copyright to all of 
their work unless a specific contract is 
made with their employer. This means that 
the consultant who writes that code might 
also own the rights to license and upgrade 
it. 

The court's ruling may offer some pro- 
tection to independent contractors, who 
often have Httle collection clout after they 
have turned in their work, but at the same 
time may make it scarier for companies to 
use them. Some fall into the habit of work- 
ing without a written contract, but this 
decision provides motivation to put down 
in black and white exacUy who is buying 
what from whom. It gives more reason than 
ever to be clear about woik-for-hire and the 
distinctions between an employee and a 
consultant (Source: San Jose Business 
Journal 7-17-89) 

— Marlin Ouverson 
Editor 
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FIG 

CHAPTERS 



The FIG Chapters listed below 
are currently registered as active 
with regular meetings. If your 
chapter listing is missing or incor- 
rect, please contact Kent Saf ford at 
the FIG office's Chapter Desk. 
This listing will be updated in each 
issue of Forth Dimensions. If you 
would like to begin a FIG Chapter 
in your area, write for a "Chapter 
Kit and Application." Forth Inter- 
est Group, P.O. Box 8231, San 
Jose, California 95155 

U.S.A. 

• ALABAMA 
Huntsville Chapter 

Tom Konantz 
(205)881-6483 

• ALASKA 

Kodiak Area Chapter 
Ric Shepard 
Box 1344 

Kodiak, Alaska 99615 

• ARIZONA 
Phoenix Chapter 
4thThurs., 7:30 p.m. 
Arizona State Univ. 
Memorial Union, 2nd floor 
Dennis L. Wilson 

(602) 381-1146 

• ARKANSAS 

Central Arkansas Chapter 

Litfle Rock 

2nd Sat., 2 p.m. & 

4th Wed., 7 p.m. 

Jungkind Photo, 12th & Main 

Gary Smith (501) 227-7817 



• CALIFORNIA 

Los Angeles Chapter 
4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S.Grevillea Ave. 
Phillip Wasson 
(213) 649-1428 

North Bay Chapter 
2nd Sat., 10 a.m. Forth, AI 
12 Noon Tutorial, 1 p.m. Forth 
South Berkeley Public Library 
George Shaw (415) 276-5953 

Orange County Chapter 
4th Wed., 7 p.m. 
Fullerton Savings 
Huntington Beach 
Noshir Jesung (714) 842-3032 

Sacramento Chapter 
4th Wed., 7 p.m. 
1708-59th St., Room A 
Tom Ghormley 
(916) 444-7775 

San Diego Chapter 
Thursdays, 12 Noon 
Guy KeUy (619)454-1307 

Silicon Valley Chapter 

4th Sat, 10 a.m. 

H-P Cupertmo 

Bob Barr (408) 435-1616 

Stockton Chapter 

Doug Dillon (209) 931-2448 

• COLORADO 
Denver Chapter 
1st Mon., 7 p.m. 

CUfford King (303) 693-3413 

• CONNECTICUT 

Central Connecticut Chapter 

Charles Krajewski 
(203)344-9996 



• FLORIDA 
Orlando Chapter 

Every other Wed., 8 p.m. 
Herman B. Gibson 
(305) 855-4790 

Southeast Florida Chapter 

Coconut Grove Area 

John Forsberg (305) 252-0108 

Tampa Bay Chapter 

1st Wed., 7:30 pjn. 

Terry McNay (813) 725-1245 

• GEORGIA 
Atlanta Chapter 

3rd Tues., 6:30 p.m. 
Western Sizzlen, Doraville 
Nick Hennenfent 
(404) 393-3010 

• ILLINOIS 

Cache Forth Chapter 
Oak Park 

Clyde W. Phillips, Jr. 
(312) 386-3147 

Central Illinois Chapter 

Champaign 

Robert lUyes (217) 359-6039 

• INDMNA 

Fort Wayne Chapter 

2nd Tues., 7 p.m. 

VP Univ. Campus, B71 Neff 

Hall 

Blair MacDermid 
(219) 749-2042 

• IOWA 

Central Iowa FIG Chapter 

1st Tues., 7:30 pjn. 

Iowa State Univ., 214 Comp. 

Sci. 

Rodrick Eldridge 
(515) 294-5659 



Fairneld FIG Chapter 

4th Day, 8:15 p.m. 

Gurdy Leete (515) 472-7077 

• MARYLAND 
MDHG 

Michael Nemeth 
(301)262-8140 

• MASSACHUSETTS 
Boston Chapter 

3rd Wed., 7 p.m. 
Honeywell 

300 Concord, Billerica 

Gary Chanson (617) 527-7206 

• MICHIGAN 
Detroit/Ann Arbor Area 

4thThurs. 

Tom Chrapkiewicz 

(313)322-7862 

• MINNESOTA 
MNFIG Chapter 

Minneapolis 
Fred Olson 
(612) 588-9532 

• MISSOURI 
Kansas City Chapter 
4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 

St. Louis Chapter 
1st Tues., 7 p.m. 
Thomhill Branch Library 
Robert Washam 
91 Weis Drive 
EUisvUle, MO 63011 

• NEW JERSEY 
New Jersey Chapter 
Rutgers Univ., Piscataway 
Nicholas Lordi 

(201) 338-9363 
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. NEW MEXICO 
Albuquerque Chapter 

IstThurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Jon Bryan (505)298-3292 

• NEW YORK 
FIG, New York 
2nd Wed., 7:45 p.m. 
Manhattan 

Ron Martinez (212) 866-1 157 

Rochester Chapter 

Odd month, 4th Sat., 1 p.m. 

Monroe Comm. College 

Bldg. 7, Rm.l02 

Frank Lanzafame 

(716) 482-3398 

• OHIO 
Cleveland Chapter 
4th Tues., 7 p.m. 
Chagrin Falls Library 
Gary Bergstrom 
(216) 247-2492 

• Columbus FIG Chapter 

4th Tues. 

Kal-Kan Foods, Inc. 
5115 Fisher Road 
Terry Webb 

(614) 878-7241 

Dayton Chapter 

2nd Tues. & 4th Wed., 6:30 
p.m. 

CFC. 11 W. Monument Ave. 
#612 

Gary Ganger (513) 849-1483 

• OREGON 

WiUamette Valley Chapter 
4th Tues., 7 p.m. 
Linn-Benton Comm. College 
Pann McCuaig (503) 752-51 13 

• PENNSYLVANIA 

Villanova Univ. Chapter 
IstMon., 7:30 p.m. 
Villanova University 
Dennis Clark 
(215) 860-0700 

• TENNESSEE 

East Tennessee Chapter 

Oak Ridge 

3rd Wed., 7 p.m. 

Sci. Appl. Int'l. Corp., 8th Fl. 

800 Oak Ridge Turnpike 

Richard Secrist 

(615) 483-7242 

• TEXAS 
Austin Chapter 
Matt Lawrence 
PO Box 180409 
Austin, TX 78718 



Dallas Chapter 
4th Thtirs., 7:30 p.m. 
Texas Instruments 
13500 N. Central Expwy. 
Semiconductor Cafeteria 
Conference Room A 
CUfPenn (214) 995-2361 

Houston Chapter 
3rd Men., 7:30 p.m. 
Houston Area League of PC 
Users 

1200 Post Oak Rd. 
(Galleria area) 
Russell Harris 
(713)461-1618 

• VERMONT 
Vermont Chapter 

Vergennes 
3rdMon., 7:30 p.m. 
Vergennes Union High School 
RM 210, Monkton Rd. 
Hal Clark (802) 453-4442 

• VIRGINIA 

First Forth of Hampton 
Roads 

William Edmonds 
(804) 8984099 

Potomac FIG 

D. C. & Northern Virginia 
1st Tues. 

Lee Recreation Center 
5722 Lee Hwy., Arlington 
Joseph Brown 
(703)471-4409 

E. Coast Forth Board 
(703) 442-8695 

Richmond Forth Group 
2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Donald A. Full 
(804) 739-3623 

• WISCONSIN 

Lake Superior Chapter 
2nd Fri., 7:30 p.m. 
1219 N. 21st St., Superior 
Allen Anway (715) 394-4061 



INTERNATIONAL 

• AUSTRALIA 
Melbourne Chapter 
1st Fri., 8 p.m. 
Lance Collins 
65 Martin Road 
Glen Iris, Victoria 3146 
03/29-2600 
BBS: 61 3 299 1787 



Sydney Chapter 

2nd Fri., 7 p.m. 

John GoodseU Bldg., RM 

LG19 

Univ. of New South Wales 

Peter Tregeagle 

10 BindaRd. 

Yowie Bay 2228 

02/524-7490 

Usenet 

tedi@usage.csd.unsw.oz 

• BELGIUM 
Belgium Chapter 
4th Wed., 8 p.m. 
Luk Van Loock 
Lariksdreff20 
2120 Schoten 
03/658-6343 

Southern Belgium Chapter 

Jean-Marc Bertinchamps 
Rue N. Monnom, 2 
B-6290 Nalinnes 
071/213858 

• CANADA 
BC FIG 

1st Thurs., 7:30 p.m. 

BCrr, 3700 WilUngdon Ave. 

BBY, Rm. lA-324 

Jack W. Brown (604) 596- 

9764 

BBS (604)434-5886 

Northern Alberta Chapter 
4th Sat., 10a.m.-noon 
N. Alta. Inst, of Tech. 
Tony Van Muyden 
(403) 486-6666 (days) 
(403) 962-2203 (eves.) 

Southern Ontario Chapter 

Quarterly, 1st Sat., Mar., Jun., 

Sep., Dec, 2 p.m. 

Genl. Sci. Bldg., RM 212 

McMaster University 

Dr. N. Sohitseff 

(416) 525-9140 x3443 

Toronto Chapter 

John Clark Smith 
PO Box 230, Station H 
Toronto, ON M4C5J2 

• ENGLAND 
Forth Interest Group-UK 

London 

IstThurs., 7 p.m. 

Polytechnic of South Bank 

RM408 

Borough Rd. 

D.J. Neale 

58 Woodland Way 

Morden, Surry SM4 4DS 



• FINLAND 
FhiFIG 

Jaime Kotiranta 
Arkkitehdinkam 38 c 39 
33720 Tampere 
-1-358-31-184246 

• HOLLAND 
Holland Chapter 

Vic Van de Zande 
Fiimiark7 
3831 JE Leusden 

• ITALY 
FIG Italia 

Maico Tausel 

Via Gerolamo Fomi 48 

20161 Milano 

02/435249 

• JAPAN 
Japan Chapter 

Toshi Inoue 

Dept. of Mineral Dev. Eng. 
University of Tokyo 
7-3-1 Kongo, Buiiyo 113 
812-2111 x7073 

• NORWAY 
Bergen Chapter 

Kjell Birger Faeraas, 
47-518-7784 

• REPUBLIC OF CHINA 
R.O.C. Chapter 

Chin-Fu Liu 

5F, #10, Alley 5, Lane 107 
Fu-Hsin S. Rd. Sec. 1 
TaiPei, Taiwan 10639 

• SWEDEN 
SweFIG 
Per Aim 
46/8-929631 

• SWITZERLAND 
Swiss Chapter 
Max Hugelshofer 
Industrieberatung 
Ziberstrasse 6 
8152 Opfikon 

01 810 9289 

SPECIAL GROUPS 

• NC4000 Users Group 
John Carpenter 

1698 ViUaSL 

Mountain View, CA 94041 

(415) 960-1256 (eves.) 
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FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Following Thanksgiving, November 24-26, 1989 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 



Forth and Object-Oriented Programming 

Papers are invited that address relevant issues in the development of object-oriented programming 
and object-oriented applications. Data structures to support object-oriented program development 
are readily constructed in Forth. These structures may be reused which increases productivity 
when new applications are developed. Papers about other Forth topics are also welcome. 

Mail your abstract(s) of 100 words or less to FORML Conference, Forth Interest Group, P.O. 
Box 8231, San Jose, CA 95155. 

Completed papers are due November 1, 1989. 

Conference Registration 

Registration fee for conference attendees includes conference registration, coffee breaks, and note-book of papers sub- 
mitted, and for everyone rooms Friday and Saturday, all meals including lunch Friday through lunch Sunday, wine and 
cheese parties Friday and Saturday nights, and use of Asilomar facilities. 

Conference attendee in double room — $285 • Non-conference guest in same room — $150 • Children under 17 in same 
room — $100 • Infants under 2 years old in same room — free • Conference attendee in single room — $335 

Register by calling the Forth Interest Group business office at (408) 277-0668 or writing to: FORML Conference, 
Forth Interest Group, P.O. Box 8231, San Jose, CA 95155. 

Forth Interest Group 

P.O.Box 823 1 Second Class 

San Jose, CA 95155 Postage Paid at 

San Jose, CA 



